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I.  INTRODUCTION 


In  spite  of  recent  recruiting  and  retention  success,  Navy  manpower  man¬ 
agers  face  an  increasingly  difficult  task  in  the  next  decade.  A  recovering 
economy  will  demand  a  greater  share  of  the  labor  force.  Demand  will  be 
particularly  strong  for  personnel  in  those  high  technology  skills  which  the 
Navy  has  the  most  difficulty  in  retaining.  At  the  same  time,  the  expansion  of 
the  fleet  will  require  significant  additional  skilled  manpower.  The  Navy's 
training  establishment  will  be  forced  to  expand  to  accommodate  a  larger  Navy, 
and  this  will  require  additional  increments  of  skilled  manpower  to  staff  the 
school  system.  Add  to  these  considerations  the  decline  in  the  18-24  year  old 
age  group  from  which  the  Navy  draws  most  new  accessions,  and  the  dimensions  of 
the  problem  become  apparent.  It  seems  clear  that  frequent  shortages  of 
skilled  manpower  are  likely  to  occur;  that  the  cost  of  obtaining  and  retaining 
personnel  is  likely  to  rise;  and  that  the  process  of  Planning,  Programming, 
and  Budgeting  for  military  manpower  requirements  and  the  management  of  the 
resulting  inventory  will  be  more  complex  and  difficult  than  at  any  time  in  the 
past . 


No  group  better  exemplifies  the  scope  of  the  problems  identified  above 
than  Aviation  Officers.  Naval  Aviator  and  Naval  Flight  Officer  (NFO)  reten¬ 
tion  is  up.  In  addition  to  general  economic  conditions,  the  competitive 
effects  of  airline  deregulation  have  had  a  direct  impact  on  job  opportunities 
for  pilots.  Airline  mergers  and  a  number  of  airline  failures  have  inflated 
the  rolls  of  furloughed  pilots  and  created  uncertainty  regarding  the  degree  of 
job  security  attached  to  a  career  as  an  airline  pilot.  In  addition,  a 
substantial  Aviation  Officer  bonus  has  served  as  a  positive  inducement  to 


young  officers  to  remain  in  the  Navy. 


The  improvements  in  Aviation  Officer  retention  could  not  have  come  at  a 
more  fortuitous  time.  The  force  level  expansion  implied  by  a  600-ship  Navy 
and  the  proliferation  of  ship  types  capable  of  supporting  aircraft  demand 
substantial  increases  in  the  number  of  Aviation  Officers.  At  the  same  time, 
the  large  budget  increments  required  to  procure  additional  hardware  and  sup¬ 
port  for  the  expanded  fleet  militate  against  the  added  procurement  required 
to  replace  and  modernize  an  ageing  training  plant.  In  addition,  recent 
increases  in  energy  and  manpower  costs  have  dramatically  raised  the  overall 
cost  of  providing  Aviation  Officers  for  the  fleet.  High  retention  reduces  the 
number  of  new  accessions  required  to  replace  officers  who  would  otherwise 
leave  the  Navy.  This,  in  turn,  reduces  training  costs,  relieving  some  of  the 
fiscal  stresses  accompanying  the  force  level  expansion. 

The  benefits  realized  from  the  current  high  retention  of  Aviation  Officers 
are  not  without  a  long  term  price.  While  force  level  expansion  can  be  sup¬ 
ported  without  any  significant  increase  in  training  rates,  the  long  term 
effect  of  this  strategy  is  to  distort  the  Aviation  Officer  inventory.  In 
effect,  relatively  senior  lieutenants  (5-7  years  of  service)  are  being  substi¬ 
tuted  for  new  accessions.  In  relative  terms,  a  "hump"  is  being  created  at  the 
senior  lieutenant  level,  and  a  corresponding  valley  is  being  created  in  the 
more  junior  years  of  experience.  While  this  distortion  can  be  easily  accom¬ 
modated  at  the  lieutenant  level,  it  can  be  predicted  that  significant  person¬ 
nel  management  problems  will  arise  as  the  inventory  ages.  As  the  hump  and  the 
following  valley  move  through  the  senior  command  years,  there  first  will  be  a 
surplus  of  officers  eligible  to  fill  senior  positions,  followed  about  five 
years  later  by  a  deficit. 
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In  addition  to  the  long  term  impact  cited  above,  it  should  be  recognized 
that  current  high  levels  of  retention  are  unlikely  to  be  sustained.  As  the 
economy  improves,  airline  demand  for  pilots  will  revive.  The  revival  is 
likely  to  be  particularly  robust  as  large  numbers  of  senior  pilots  who  entered 
airline  service  in  the  early  1950s  reach  mandatory  retirement  age.  Thus  the 
"valley"  behind  the  current  retention  hump  is  likely  to  be  deep — the  result  of 
low  accessions  compounded  by  low  retention. 

While  the  potential  problems  identified  above  are  fundamentally  personnel 
management  issues,  a  great  deal  can  be  done  to  ameliorate  the  severity  of 
their  impact  during  the  manpower  planning  process.  Manpower  planning  defines 
requirements  and  identifies  the  course  of  action  necessary  to  create  an  inven¬ 
tory  to  meet  those  requirements.  Unfortunately,  planners  lack  the  analytic 
tools  necessary  to  identify  a  preferred  course  of  action.  A  large  number  of 
variables  must  be  considered,  the  time  available  for  manpower  planning  is 
short,  and  the  number  of  planning  iterations  is  likely  to  be  large.  The  ana¬ 
lytic  procedures  employed  are  rudimentary  and  are  focused  on  near  term 
requirements . 

This  report  describes  a  more  sophisticated  tool  that  has  been  designed 
specifically  to  support  the  manpower  planning  process.  In  the  following  sec¬ 
tions,  the  overall  planning  process  will  be  described  with  particular  emphasis 
on  the  difficulties  faced  by  manpower  planners.  Following  this,  the  general 
requirements  for  a  manpower  model  suitable  for  the  planning  process  will  be 
identified.  The  specifics  of  the  Aviation  Officer  Requirements  Model  will 
then  be  presented.  Finally,  the  utility  of  the  model  will  be  demonstrated  by 
presenting  the  results  of  a  number  of  typical  applications. 
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II.  BACKGROUND  -  THE  PLANNING  PROCESS 
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It  is  logical  to  begin  this  discussion  with  a  brief  review  of  the  essen¬ 
tial  elements  of  the  planning  process  by  which  military  manpower  requirements 
in  general,  and  Aviation  Officer  requirements  in  particular,  are  met.  As  with 
all  resource  requirements,  manpower  planning  takes  place  within  the  context  of 
the  Defense  Planning  Programming  and  Budgeting  System  (PPBS).  The  fundamental 
objective  of  the  PPBS  is  to  produce  the  Five  Year  Defense  Plan  (FYDP) ,  which 
is  the  basis  for  the  resource  requests  for  the  Department  of  Defense  contained 
in  the  President's  annual  budget  submission  to  the  Congress. 

The  PPBS  process  begins  approximately  27  months  prior  to  the  beginning  of 
the  fiscal  year  corresponding  to  the  first  year  of  the  FYDP  which  is  the 
planning  objective.  (In  the  case  of  manpower,  the  first  year  is  the  only  year 
actually  authorized  and  funded.)  Force  levels  drive  manpower  requirements. 
Therefore,  manpower  planners  must  constantly  revise  their  plans  in  response  to 
changes  in  force  structure  and  adjustments  to  weapon  system  acquisition  sche¬ 
dules.  Such  changes  and  adjustments  are  frequent  during  the  planning  process 
within  DOD.  In  the  subsequent  authorization  and  appropriation  process  before 
the  Congress,  further  changes  occur.  Ideally,  the  Military  Personnel-Navy 
(MPN)  Authorization  and  Budget  should  exactly  support  the  fleet  and  shore 
establishment  authorized  by  the  Congress;  that  is,  provision  should  be  made 
for  the  skills  and  grade  levels  required  to  man  and  support  the  fleet.  In 
reality,  the  result  is  only  an  approximation  of  requirements. 

Manpower  planners  face  a  number  of  difficulties  in  establishing  manpower 
requirements  in  the  dynamic  environment  of  the  PPBS.  Among  these  are  the 
following: 


>  The  need  to  adjust  requirements  to  constantly  changing  force  level 
decisions .  This  includes  the  adjustment  of  direct  requirements  and 
such  indirect  requirements  as  training  staff,  student  billets,  and 
other  indirect  support  personnel.  In  addition,  adjustments  must  be 
made  within  an  overall  end  strength  constraint. 


•  The  need  to  adjust  certain  requirements  to  meet  current  personnel  defi¬ 
ciencies.  To  the  extent  that  current  inventories  fail  to  meet  skill 
and  grade  level  requirements,  recruiting  and  training  manpower  resour¬ 
ces  must  be  provided  to  acquire  and  train  additional  increments  of 
personnel . 


•  The  requirement  to  manage  three  different  budgets  simultaneously. 
Because  of  the  long  planning  lead  time,  manpower  managers  are 
constantly  concerned  with  execution  of  the  budget  for  the  current 
fiscal  year,  defending  the  budget  for  the  next  fiscal  year  during  the 
congressional  budget  process,  and  developing  the  budget  for  the 
following  year.  These  three  budgets  are  not  independe  t  of  one 
another.  In  general  changes  in  one  mandate  changes  to  the  r  two. 


The  fact  that  the  personnel  inventory  is  created  and  t 
accessions  at  the  lowest  skill  and  experience  levels.  Thi:  -•> 
changes  in  manpower  requirements  at  any  skill  or  experienc 
ultimately  be  reflected  in  accession  requirements.  C 

almost  any  change  in  manpower  requirements  can  have  a 
impact  on  a  broad  range  of  manpower  and  personnel  management 
promotion  planning,  skill  conversion  policy,  specialized 
requirements,  and  manning  priorities,  to  name  a  few. 
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•  The  existence  of  significant  uncertainty  regarding  the  future  state  of 
personnel  inventories.  Direct  manpower  requirements  are  established  by 
force  levels.  However,  incremental  requirements  at  a  point  in  the 
future  are  a  function  of  the  difference  between  overall  manpower 
requirements  and  the  personnel  inventory  that  will  result  from  the 
ageing  of  the  current  inventory.  The  inventory  ageing  process  is 
influenced  by  both  endogenous  factors  associated  with  personnel  manage¬ 
ment  actions  and  exogenous  factors  relating  to  political,  social,  and 
economic  forces  operating  at  national  and  international  levels.  The 
determination  of  the  impact  of  these  factors  on  the  parameters  that 
describe  the  inventory  ageing  process — retention,  attrition,  and 

retirements — is  an  art,  not  a  science. 


In  the  face  of  the  difficulties  described  above,  the  manpower  planner 
necessarily  has  a  multiplicity  of  planning  objectives.  These  can  be  cate¬ 


gorized  in  terms  of  the  planning  horizon  in  which  they  are  operative: 


•  In  the  short  term,  defined  by  the  planning  process  itself,  the 
must  meet  requirements.  This  may  mean  reducing  requirements  or 
eating  resources  among  competiting  claimants.  In  general,  the 
is  reactive,  responding  to  real-time  crises  associated  with  the 


planner 
real lo- 
process 
current 
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fiscal  year  budget,  or  short-fused  threats  to  near-term  fiscal  year 
budgets  which  are  constantly  being  raised  in  the  Defense  bureaucracy  or 
in  the  Congress. 

•  In  the  intermediate  term,  defined  by  the  later  years  in  the  FYDP,  the 
planner  should  adjust  requirements  statements  to  reflect  the  realities 
of  the  current  budget  cycle  and  changing  conditions  in  the  personnel 
inventory  and  the  external  environment.  As  it  becomes  clear  that 
current  trends  in  force  levels,  personnel  retention,  or  general  econo¬ 
mic  conditions  differ  from  initial  planning  assumptions,  adjustments  to 
the  outyears  of  the  FYDP  should  be  made. 

•  In  the  longer  term,  beyond  the  FYDP,  the  planner  should  be  aware  of  the 

long  term  impact  of  his  decisions.  Personnel  acquired  today  in 
response  to  changing  requirements  will  be  in  the  Navy  well  beyond  the 

FYDP  timeframe.  The  expected  service  life  of  an  Aviation  Officer  is 

about  10  years,  and  significant  numbers  remain  for  30  years. 

The  most  severe  personnel  management  problems  involving  Aviation  Officers 
today  are  concerned  with  surpluses  or  shortages  of  personnel  with  between  12 
and  16  years  of  service.  The  accessions  that  established  these  inventory  year 
groups  occurred  between  1968  and  1972.  Since  that  time,  force  level  changes, 
added  missions,  and  variations  in  Aviation  Officer  retention  have  combined  to 
create  severe  mismatches  in  several  subcommunities  between  LCDR/CDR  require¬ 
ments  and  the  inventory  of  officers  available  to  fill  these  requirements. 

While  such  mismatches  could  probably  not  be  avoided  altogether,  there  were 

alternative  accession  plans  available  in  1968-1972  that  would  have  signifi¬ 
cantly  reduced  the  magnitude  of  current  problems.  Unfortunately,  the  manpower 
planner  has  very  little  time  to  devote  to  analysis  of  the  long  term  impact  of 
his  decision  within  the  context  of  the  PPBS.  The  analytic  tools  available  do 
not  permit  any  extended  assessment  of  these  impacts. 

The  planner  must  obviously  meet  immediate  requirements.  Therefore,  the 
short  term  planning  objectives  dominate  the  planning  process.  Given  a 
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mismatch  between  inventory  and  requirements,  the  manpower  planner  must  incre¬ 
ment  or  decrement  accessions  even  if  the  mismatches  occur  in  senior  grades. 
In  effect,  he  seeks  quantitative  balance  under  the  implicit  assumption  that 
qualitative  matches  will  be  made  through  application  of  appropriate  training 
and/or  personnel  management  policies.  There  are  two  major  problems  that  can 
arise  under  this  approach: 

•  Resources  required  to  implement  future  changes  in  training  or  personnel 
management  policies  are  left  undefined.  There  is  no  assurance  that 
they  will  be  provided. 

•  Personnel  management  policies  affect  retention.  To  the  extent  that 
they  are  perceived  to  be  inimical  to  the  individual's  career  objec¬ 
tives,  retention  can  be  expected  to  decline.  Thus,  the  manpower 
planner  can  heavily  influence  one  of  the  principal  variables  affecting 
the  inventory  projections  used  in  the  planning  process.  However,  these 
effects  are  difficult  to  exploit  in  the  planning  process  because  they 
lie  beyond  the  immediate  planning  horizon. 


While  the  focus  of  manpower  planners  on  immediate  requirements  is  una¬ 
voidable,  it  is  reasonable  to  suggest  that  a  significant  consideration  in 
selecting  among  competing  short  term  courses  of  action  would  be  the  assessment 
of  the  long  term  impacts  of  those  courses  of  action.  Unfortunately,  such 
assessments  are  difficult  with  currently  available  planning  tools.  What  is 
needed  is  a  simple  planning  model  that  does  the  following: 

•  Establishes  the  long  term  context  of  requirements  determination  as  an 
inventory  building  process.  The  ultimate  objective  is  to  achieve  the 
"proper"  match  of  inventory  with  stated  requirements. 

•  Accounts  for  personnel  management  policies  that  constrain  the  applica¬ 
tion  of  inventory  to  requirements;  that  is,  the  model  must  go  beyond 
simple  quantitive  measures  of  inventory  and  address  qualitative  factors 
such  as  skill  and  experience  levels. 

•  Incorporates  a  consistent  set  of  the  variables  and  parameters  used  to 
describe  both  requirements  and  inventory.  While  the  user  may  be  pri¬ 
marily  concerned  with  a  few  variables  in  the  set,  he  needs  the 
assurance  that  manipulation  of  these  variables  occurs  in  a  context 
which  maintains  consistency  over  the  entire  set. 

•  Permits  rapid  iteration  to  permit  evaluation  of  alternative  strategies 
and  parametric  analysis  of  the  impact  of  key  variables  such  as  reten¬ 
tion. 
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•  Provides  outputs  which  identify  requirements  in  terms  of  both  skill 
experience  mix. 

•  Defines  accession  requirements  to  support  the  personnel  inventory. 

The  Aviation  Officer  Requiremen  Model,  described  in  the  following 
tions  of  this  report,  is  a  planning  model  intended  for  application  in 
determination  of  Aviation  Officer  requirements  in  the  PPBS.  It  meets  al 
the  above  criteria. 


and 

see¬ 
the 
1  of 
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III.  MODEL  DESCRIPTION 


A.  GENERAL  DESCRIPTION 

The  Aviation  Officer  Requirements  Model  was  described  in  a  previous 
reporti/  of  this  study.  That  description  provided  an  exposition  of  the 
structure  of  the  model,  an  analysis  of  model  parameters,  and  a  discussion  of 
potential  solution  procedures.  A  computer  program  that  implemented  one  solu¬ 
tion  procedure  was  al6o  described. 

The  discussion  which  follows  presents  the  model  structure  from  a  slightly 
different  perspective  in  an  effort  to  demonstrate  how  the  criteria  enumerated 
at  the  end  of  Section  II  are  satisfied.  In  the  interest  of  brevity,  unne¬ 
cessary  repetition  of  material  from  the  previous  report  is  avoided.  The 
reader  who  is  interested  in  a  detailed  description  of  model  parameters,  their 
derivation,  and  the  functional  relationships  among  them  should  refer  to  that 
report . 

In  general,  the  Aviation  Officer  Requirements  Model  meets  the  effec¬ 
tiveness  criteria  proposed  in  Section  I  in  three  ways: 

•  Requirements  Specification.  Requirements  are  specified  in  a  way  that 
accounts  for  both  the  skill  and  experience  level  needed  in  billet 
incumbents . 

a  Inventory  Specification.  The  inventory  is  defined  in  a  way  that  is 
directly  related  to  requirements.  Accession  levels  and  the  inventory 
ageing  process  are  specified. 

•  Personnel  Management  Policies.  Personnel  Management  is  the  process  by 
which  inventory  is  matched  to  requirements.  Policies  imply  rules  for 
assigning  officers.  Rules  imply  constraints  in  the  application  of 
inventory  to  meet  requirements.  Thus  an  inventory  which  is  numerically 
equal  to  requirements  may  not  in  fact  meet  requirements.  The  Aviation 
Officer  Requirements  model  accounts  for  these  constraints. 


_1/ F.E.  O'Connor,  Aviation  Officer  Requirements  Study,  ISI  Report  No. 
V-2693-01,  (Information  Spectrum,  Inc.,  Arlington,  VA,  22202,  31  May  1982). 


The  implementation  of  each  of  these  three  facets  of  the  Aviation  Officer 


requirements  model  is  discussed  in  detail  below. 


B.  REQUIREMENTS  SPECIFICATION 

The  concept  of  manpower  requirements  implies  number,  skill,  and 
experience;  that  is,  the  Navy  needs  a  certain  number  of  Aviation  Officers  who 
can  operate  particular  kinds  of  weapon  systems,  and — given  that  the  level  of 
proficiency  will  vary — experience  criteria  are  specified.  Thus  the  Navy 
might  specify  that  it  needs  50  Naval  Aviators  who  are  fighter  pilots  with  at 
least  15  years  of  experience  in  order  to  provide  commanding  officers  for 
fighter  squadrons.  Alternatively,  the  experience  specification  might  require 
that  the  50  Naval  Aviators  have  reached  the  grade  of  Commander. 


Aviation  Officer  Requirements  are  implicitly  partitioned  in  at  least  three 
dimensions : 

•  By  General  Specialty  -  Naval  Aviators  or  Naval  Flight  Officers.  Naval 
Aviators  are  trained  to  pilot  aircraft  and  control  essential  aircraft 
systems.  Naval  Flight  Officers  are  trained  to  operate  sensor  systems, 
manage  tactical  display  and  analysis  systems,  and  navigate  the 
ai rcraf  t . 

•  By  Generic  Weapon  System  Type.  A  number  of  platform  or  system  charac¬ 
teristics  operate  to  require  significantly  different  skills  of  weapon 
system  operators.  Specific  missions  also  differ  in  training  or 
experience  requirements.  Major  differences  in  skill  requirements  exist 
for : 


Fixed  Wing  vs.  Rotary  Wing  Aircraft 
Ship  Based  vs.  Shore  Based  Aircraft 

Similar  differences  exist  with  respect  to  primary  aircraft  mission. 
Thus  aircraft  with  an  Anti-Submat ine  Warfare  (ASW)  mission  differ  from 
aircraft  with  an  Anti-Air  Warfare  (AAW)  mission  in  the  demands  placed 
on  the  Naval  Aviators  and  Naval  Flight  Officers  that  operate  them. 

•  By  Grade  Level.  Three  distinct  levels  of  experience  can  be  identified 
as  required  of  Aviation  Officers  in  Units  which  are  responsible  for  the 
operation  of  aircraft.  These  levels  can  be  classified  by  grade  level: 


10 


I 

I 

I 


I 


Lieutenant  and  Below  -  The  Operating  Level 
Lieutenant  Commander  -  The  Department  Head  Level 
Commander  -  The  Command  Level 


While  this  division  is  given  in 
the  distinctions  between  the  groups 
vision  and  training  responsibilities. 


organizational  administrative 
carry  over  to  tactical 


te  rms  , 
super- 


The  basic 
established  by 
lines  outlined 
munities.  The 


structure  of  the  Aviation  Officer  Requirements  model  is 
partitioning  the  total  Aviation  Officer  requirement  along  the 
above.  The  resulting  groupings  are  referred  to  as  subcom- 
current  subcommuni ties  residing  within  the  Model  are  given  in 


Table  1. 


TABLE  I 

AVIATION  OFFICER  SUBCOKMUNITI ES 


SUBCOMMUNITY 

(SYMBOL) 

PRIMARY 

MI SS10N 

CURRENT 

A/C  TY  PE 

CURRENT 

SQUADRONS 

NA 

INCLUDES 

KYO 

Light  Attack  (VA) 

ACW 

AT/A1B 

24 

X 

_ 

Fighter  (VF) 

AAW 

F4/F14/F18 

24 

X 

X 

Mediun  Attack  (VAM) 

AGW 

A6 

12 

X 

X 

Air  Early  Warning  (VAW) 

AAW 

E2C 

12 

X 

X 

Tactical  Electronic 

Warfare  (VAQ) 

EW 

EA6 

9 

X 

X 

Carrier  Baaed  (VS) 

ASW 

S3 

11 

X 

X 

Anti  Sub  Warfare 

Helicopter  ASW  (HS) 

ASW 

SH3/SH60 

11 

X 

- 

Light  Airborne  Multi- 
Purpoae  Syaten  (HSL) 

ASW 

SH2/SH6 

14 

X 

- 

Maritime  Patrol  (VP) 

ASW 

P3 

24 

X 

X 

Electronic  Warforce  (VQ) 

EW 

EA3 ,  EP3 

2 

X 

X 

Force  Support,  Jet 
(VR,  VC) 

SUPPORT 

C9,  C2,  A4 

13 

X 

X 

Force  Support,  Prop.  (VQ) 

SUPPORT 

EC  130 

2 

X 

X 

Force  Support,  Helo. 

(MC,  HM ) 

SUPPORT 

N47,  N53 

6 

X 

ACW  -  Air  to  Ground  Warfare 
AAM  -  Anti  Air  Warfare 
EW  -  Electronic  Warfare 
ASW  -  Anti  Submarine  Warfare 


X  indicates  NA/NFO’a  required  in  Subcommunity 
-  indicates  NFO's  not  required  in  Subcommunity 


Within  each  subcommunity ,  requirements  are  further  partitioned  by  the 
grade  level  of  the  requirement.  Four  grade  levels  have  been  established: 


-  LT  and  Below 

-  LCDR 

-  CDR 

Senior  Commander 

The  fourth  category,  Senior  Commander,  was  established  when  it  became 
apparent  that  significant  numbers  of  billets  require  commanders  who  have  had 
experience  as  commanding  officers.  The  model  identifies  senior  commanders  in 
the  inventory  as  commanders  with  more  than  three  years  in  grade. 

The  division  of  Aviation  Officer  requirements  into  subcommunities  based  on 
weapon  system  characteristics  has  the  important  advantage  of  providing  a 
direct  connection  between  force  levels  and  Aviation  Officer  requirements. 
Force  level  decisions  during  the  planning  process  affecting  the  number  of 
aircraft  or  the  number  of  Aviation  Squadrons  can  dramatically  influence  the 
number  of  Aviation  Officers  required.  Recomputation  of  these  manpower 
requirements  in  response  to  force  level  changes  involves  adjustments  to  both 
direct  squadron  requirements  and  certain  indirect  requirements,  such  as 
manpower  required  to  train  personnel  to  meet  direct  requirements.  In  the 
dynamics  of  the  planning  process,  when  potential  force  level  changes  are  fre¬ 
quent,  these  computations  are  tedious  and  subject  to  error.  Since  force 
level  changes  are  easily  related  to  a  subcommunity  or  group  of  subcommunities, 
it  is  possible  to  express  subcommunity  related  manpower  changes  as  a  function 
of  force  level  changes.  In  general  manpower  changes  are  given  by: 
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(i)  AMPsANSxACxCFxNC+AFxIN 

Where 


AMP  *  Change  in  Manpower  Requirement 
ANS  *  Change  in  Number  of  Subcommunity  Squadrons 
AC  *  Number  of  Aircraft  per  Squadron 

CF  *  Crew  Factor  -  Number  of  Crews  Required  per  Assigned  Aircraft 
NC  *  Number  of  Naval  Aviators  or  NFOs  Required  per  Crew. 

AF  *  Annual  Training  Flow  required  to  Support  A  MP 
IN  =  Number  of  Instructors  Required  to  Produce  the  Required  Annual 
flow. 

The  first  term  on  the  right  relates  to  the  direct  squadron  requirements, 
while  the  second  refers  to  indirect  requirements.  These  functional  rela¬ 
tionships  are  incorporated  in  the  Aviation  Officer  Requirements  Model.  User 
specification  of  force  level  changes  causes  an  automatic  recomputation  of  man¬ 
power  requirements  for  affected  subcommunities.  In  addition,  the  user  can 
alter  any  or  all  of  the  parameters  specified  on  the  right  hand  side  of  the 
equation  so  that  analysis  of  their  impact  on  manpower  requirements  at  a  given 
force  level  is  also  possible. 


While  establishing  the  force  level  dependence  of  Aviation  Officer  require¬ 
ments  is  crucially  important  to  the  creation  of  a  successful  planning  model, 
it  should  be  pointed  out  that  force  level  dependent  manpower  requirements 
represent  only  a  fraction  of  the  total  requirement  for  Aviation  Officers.  In 
the  previous  report  of  this  study.?/  an  analysis  of  the  then  current  require¬ 
ments  was  presented  which  attributes  about  62  percent  of  total  Aviation 
Officer  requirements  to  operating  squadrons  and  associated  indirect  support 
(principally  training).  The  remaining  38  percent  of  requirements  are  asso¬ 
ciated  with  the  operation  of  the  shore  establishment  of  the  Navy  or  major 


2/Ibid.,  p.  14. 


«'T> 


.  i. 
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staffs  ashore.  Since  these  requirements  are  not  directly  related  to  force 
levels,  they  are  included  in  the  subcommunity-based  requirements  statement  by 
means  of  an  allocation  process  which  is  described  below. 

The  principal  problem  in  establishing  an  allocation  procedure  for  require¬ 
ments  which  are  not  specific  to  the  defined  subcommunities  is  the  definition 
of  a  basis  for  allocation  that  will  result  in  "fair  sharing"  of  these  require¬ 
ments  among  subcommunities.  Depending  on  the  nature  of  the  requirement,  it 
may  be  preferable  to  allocate  indirect  requirements  based  on  the  ratio  of 
direct  subcommunity  requirements  to' 

Total  Direct  Naval  Aviator  Requirements 
Total  Direct  Naval  Flight  Officer  Requirements 
Total  Direct  Aviation  Officer  Requirements 

Additionally,  for  certain  training  requirements  it  is  more  appropriate  to 
base  allocation  on  annual  graduate  flows  rather  than  on  total  requirements. 

The  Aviation  Officer  Requirements  Model  partitions  the  total  requirement 
into  Activities,  which  classify  billet  requirements  in  terms  of  the  general 
purpose  which  the  requirement  is  supporting.  For  activities  where  allocation 
is  necessary,  the  appropriate  allocation  basis  is  established.  Seven  activi¬ 
ties,  described  in  Table  II,  are  defined.  The  allocation  method  used  with 
each  activity  is  also  identified  in  the  Table. 

It  will  be  noted  that  the  first  four  activities  in  Table  11  involvt 
requirements  for  which  frequent  flights  are  required.  The  last  three  do  not. 
This  effectively  segregates  billets  coded  for  Duty  Involving  Flying  (DIF’' 
within  the  requirements  structure.  This  in  turn  makes  it  possible  to  examine 
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TABLE  II 


DEFINITION  OF  ACTIVITIES  FOR 
AVIATION  OFFICER  REQUIREMENTS  MODEL 


ACTIVITY 

DESCRIPTION 

ALLOCATION  METHOD 

Force  and  Force 
Support  Squadrons 

Naval  Aviators  or  Naval  Flight 

Officers  are  required  for  the 
operation  and  control  of  air 
weapon  systems  in  tactical  units. 

Direct  requirements. 

Fleet  Readiness 

Squad  rons 

Naval  Aviators  or  Naval  Flight 

Officers  are  required  to  train 
others  in  the  operation  and 
control  of  air  weapon  systems 
within  a  subcommunity. 

Based  on  annual 
flow  of  graduates 
vi  thin  the  sub- 
community.  Force 
level  driven. 

Training  Command 
Squadrons 

Naval  Aviators  or  Naval  Flight 

Officers  are  required  to  provide 
entry  level  training  for  student 

Naval  Aviators  and  student  Naval 

Flight  Officers. 

Based  on  annual 
flow  of  graduates 
to  the  subcommunity, 
Indirectly  driven 
by  force  levels. 

RDT&E 

Naval  Aviators  or  Naval  Flight 

Officers  are  required  for  experi¬ 
mental,  developmental,  or  test  and 
evaluation  of  air  weapon  systems. 

Based  on  general 

Aviation  Officer 
skills  required 
(Hel icopter  Pilot, 
Navigator  ,  etc .  ) . 
Allocation  only  to 
Subcummuni ties 
possessing  required 
skills. 

Afloat  (ships 
company  and 
•float  staffs 

Naval  Aviators  or  Naval  Flight 

Officers  are  required  to  supply 
aviation  experience  in  rhe 
operation  of  air-capable  ships  or 
as  members  of  afloat  staffs. 

Based  on  total 
Aviation  Officer, 
total  Naval  Aviator 
or  total  Naval 

Flight  Officer 
requirements  in 
Force  and  Force 
Support  Squadrons. 

Professional 
Development  (PC 

School /War 

Naval  Aviators  or  Naval  Flight 

Officers  are  required  to  receive 
advanced  education  as  part  of  the 
large  effort  to  enhance  the 
technical  competence  and  managerial 
skills  of  the  officer  corps. 

Based  on  total 
subc  ommun 1 1 y 
requi rement  s . 

Other 

Naval  Aviators  or  Naval  Flight 

Officers  are  required  to  provide 
aviation  experience  in  the  shore 
stations  and  on  major  staffs 
ashore . 

Based  on  total 
Aviation  Officer 
requj  rement  s . 
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the  influence  of  planning  decisions  on  the  levels  of  operational  flight 
experience  in  terms  consistent  with  the  requirements  of  the  Aviation  Career 
Incentive  Pay  Act. 3/ 


In  summary,  the  Aviation  Officer  Requirements  Model  specifies  requirements 


by: 

•  Dividing  the  total  Aviation  Officer  requirement  into  subcommunities 
based  on  specialty  (Naval  Aviator  or  Naval  Flight  Officer)  and  on 
Weapon  System/Mission  (Fighter,  Helicopter  ASW)  .  The  resulting  set 
contains  14  Naval  Aviator  subcommunities  and  9  Naval  Flight  Officer 
subcommunities . 

•  Dividing  requirements  within  each  subcommunity  based  on  grade  level  and 
activity.  Four  grade  levels  and  seven  activities  are  defined. 

The  subcommunity  design  is  mutually  exclusive  and  exhaustive;  that  is, 
the  sum  of  the  requirements  in  the  23  subcommunities  equals  the  total  Aviation 
Officer  requirement  and  each  individual  billet  spec i f icat ion  is  represented  in 
only  one  subcommun i ty .  Given  the  design,  the  objective  of  the  manpower 
planning  process  becomes  the  creation  of  a  set  subcommunity  inventories  that 
meet  the  requirement  in  detail. 


C.  INVENTORY  SPECIFICATION 


The  essential  elements  required  to  describe  the  Aviation  Officer  Inventory 
are  the  specification  of  gains  or  losses  and  the  mechanism  used  to  describe  the 
evolution  of  the  inventory  over  time. 


_3 /  Ibid  .  ,  pp  .  6-8  . 
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Gains  to  the  Aviation  Officer  inventory  come  only  by  means  of  graduation 
from  initial  entry  training  and  designation  as  either  a  Naval  Aviator  or  Naval 
Flight  Officer.  Time  of  designation  is  the  reference  point  for  inventory 
ageing.  Individuals  in  the  inventory  have  a  chronological  age  expressed  in 
years  of  aviation  service  measured  from  designation.  Annual  cohorts  are  iden¬ 
tified  as  Aviation  Year  Groups,  consisting  of  all  officers  designated  in  a 
given  fiscal  year.  Gains  to  inventory,  or  accessions,  are  the  total  number  of 
fiscal  year  graduates  from  undergraduate  flight  training.  The  size  of  the 
first  year  cohort  is  taken  as  equal  to  accessions  minus  losses  in  the  first 
year.  The  size  of  the  cohort  in  the  nth  year  of  aviation  service  is  the 
number  of  aviation  officers  remaining  at  year  n-1  less  losses  in  year  N. 

The  Aviation  Officer  Requirements  Model  assumes  that  losses  in  a  given 
year  are  uniformly  distributed  throughout  the  year.  A  further  assumption  is 
made  that  for  substantial  periods  of  time  during  the  life  of  a  given  cohort 
year-to-year  loss  rates  are  constant.  The  effect  of  these  assumptions  is  to 
permit  representation  of  the  inventory  ageing  process  by  means  of  a  series  of 
straight  line  segments  as  in  Figure  1.  The  principal  features  of  Figure  1  are 
described  in  detail  in  the  previous  report  of  this  study. ^  The  breakpoints 
in  the  figure  are  listed  below: 

•  MS  ft  (Minimum  Service  Requirement)  -  The  length  of  the  service  obliga¬ 
tion  incurred  by  an  Aviation  Officer  upon  designation  (currently  five 
years ) . 

•  MSR+2  ~  The  point  at  which  officer  retention  is  measured  (currently 
seven  years  for  Aviation  Officers). 

•  Career  Stable  Point  -  The  point  at  which  an  aviation  year  group  stabi¬ 
lizes  at  relatively  low  mid-career  loss  rates. 


kj  Ibid . ,  pp .  6-8 . 


NUMBER  OF  AVIATION  OFFICERS 


? 


•  18  Year  Point  -  The  point  at 

tial  retirement  eligibility 
(Captains  are  not  counted 
requirements  or  inventory.) 


which  losses  begin  to 
and  promotion  to  the 
in  specifying  either 


occur  due  to  ini- 
grade  of  captain. 
Aviation  Officer 


20  Year  Point  -  The  point  at  which  early 
losses  are  largely  completed. 


retirement  and 


promotion 


YEARS  OF  AVIATION  SERVICE 


FIGURE  1 

THE  AVIATION  OFFICER  INVENTORY 


The  shape  of  Figure  1  can  be  completely  specified  by  means  of  the  con¬ 


tinuation  vector  where: 


(2)  C,= 


Nj 

N 


i-l 


is  the  ratio  of  number  of  entries  into  the  i1*1  year  of  aviation 
service  to  the  number  entering  the  (i-l)th  year. 
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The  Aviation  Officer  Requirements  Model  generates  an  inventory  for  each 
subcommuni  t  y  in  the  form  of  Figure  1.  Very  briefly,  it  does  this  by  esti¬ 
mating  subcommuni ty  accessions  based  on  requirements  and  shaping  the  resulting 
steady  state  inventory. 


In  response  to  user  specification  of  subcommunity  retention,  this  inven¬ 
tory  is  then  tested  on  an  iterative  basis  (adjusting  accessions  as  necessary) 
to  establish  a  final  requirements/inventory  match  to  grade  level  detail. 


In  order  to  create  an  exact  match  between  model  inventory  and  requirements 
statements,  it  is  necessary  to  specify  some  mechanism  for  converting  years  of 
aviation  service  to  grade  level.  Requirements  are  specified  by  grade  level. 
Thus,  in  assessing  the  ability  to  meet  the  requirement  for  Lieutenant 
Commanders,  it  is  necessary  to  know  what  part  of  the  inventory  consists  of 
Lieutenant  Commanders.  Fortunately,  the  correlation  between  grade  level  and 
years  of  Aviation  service  is  good. 
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Aviation  Year  groups  are  composed  of  officers  who  are  predominantly  from 
two  or  three  adjacent  commissioned  year  groups .5/  The  Aviation  Officer 
Requirements  Model  uses  promotion  flow  points,  adjusted  to  the  years  of 
Aviation  Service  scale, 6/  t0  partition  the  inventory  by  grade.  The  promo¬ 
tion  flow  point  parameters  are  under  user  control. 

The  introduction  of  promotion  flow  points  into  the  inventory  specification 
process  adds  additional  detail  to  the  inventory  description.  The  inventory 
becomes  more  than  a  set  of  one  year  cohorts  of  constantly  decreasing  size. 
Certain  other  characteristics  of  the  cohorts  are  also  important.  These 
characteristics  are  acquired  by  individuals  as  a  result  of  assignments  to  fill 
requirements.  They  become  important  as  cohort  char ac te r i s t ics  when  the 
experience  they  imply  is  either  required  or  desired  as  a  pre-requisite  for 
future  assignments.  Experience  requirements  for  squadron  department  heads  and 
commanding  officers  are  obvious  examples.  Most  senior  positions  in  the 
requirements  structure  have  flight  hour,  educational,  or  specific  mission  area 
requirements . 

An  important  objective  of  personnel  management  is  to  ensure  that  the 
inventory  will  contain  the  proper  mix  of  skills  and  experience  in  the  future. 
Because  of  this,  the  way  in  which  inventory  can  be  used  to  meet  requirements 
is  constrained  in  ways  that  should  be  accounted  for  in  the  planning  process. 
The  unique  feature  of  the  Aviation  Officer  Requirements  Model  is  that  it  pro¬ 
vides  a  mechanism  for  accomplishing  this  by  accounting  for  those  personnel 
management  policies  which  govern  the  development  of  the  Aviation  Officer 

5yCommiss ioned  year  groups  consist  of  all  officers  who  were  commissioned 
in  a  given  fiscal  year. 

6/The  mean  time  of  designation  for  Aviation  Officers  is  at  1.5  years  of 
commissioned  service.  Thus:  YAS  ■  YCS-1.5 


inventory  and  constrain  its  application  to  requirements. 


D.  PERSONNEL  MANAGEMENT  POLICIES 

The  Aviation  Officer  Requirements  Model  accounts  for  personnel  management 
policy  by  forcing  the  inventory-requirements  match  to  take  place  in  the  con¬ 
text  of  a  career  path  network.  This  network  is  simply  a  graph  of  tour> 

classified  by  activitiy  and  sequential  position.  A  sequence  o:  connected  arcs 
represents  a  potential  career  path  through  the  network  for  an  officer  or  group 
of  officers.  Associated  with  each  tour  number-activity  node  in  the  network  is 
a  tour  length,  input  flow,  and  output  flow.  Arcs  connecting  the  network  nodes 
represent  permissible  transitions  within  the  network.  The  absence  of  an  arc- 
connecting  two  sequential  nodes  means  that  the  transition  is  barred,  either 

explicitly  or  implicitly  by  current  personnel  management  policies. 

Figure  2  is  the  network  diagram  employed  in  the  Aviation  Officer 

Requirements  Model.  Network  nodes  are  identified  by  a  two-digit  numh'r.  The 
first  digit  identifies  the  activity  in  accordance  with  the  entry  numbers  of 
Table  II.  The  second  digit  identifies  the  tour  number.  Some  of  the  currently 
permissible  arc  sequences  are  diagrammed  in  Figure  2.  The  portrayal  is 

complete  through  tour  2.  However,  in  the  interest  of  clarity  only  a  represen¬ 
tative  sample  of  permissible  sequences  beyond  tour  2  is  portrayed.  All  net¬ 
work  flows  originate  at  node  10  which  represents  the  output  of  undergraduate 
flight  training. 

Some  specific  examples  are  given  below  to  illustrate  how  personnel  manage¬ 
ment  policy  is  represented  in  the  network  of  Figure  2: 

•  Training  command  output  may  only  be  assigned  to  fleet  squadrons  or  to 
the  training  command  (Plowback  Ins t rue  tors  ) .  The  only  permissible  arcs 
from  node  10  are  (10-11)  and  (10-31). 
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•  Plowback  Instructors  are  guaranteed  a  subsequent  fleet  tour.  The  only 
permissible  arc  from  node  31  is  (31-12). 

•  Sequential  sea  duty  tours  are  not  permitted.  The  transition  (11-52)  is 
barred . 

It  should  be  apparent  that  any  policy  or  procedure  having  to  do  with  per¬ 
sonnel  assignment  can  be  represented  in  the  network  diagram.  Furthermore, 
since  the  basic  variable  represented  is  personnel  flow  and  6ince  a  tour  length 


is  associated  with  each  network  node,  the  number  of  officers  available  at  a 


node  to  meet  the  specific  requirements  for  the  activity  involved  can  be 
computed.  U  If  the  match  of  inventory  to  requirements  is  made  within  the 
constraints  imposed  by  the  network,  the  planner  is  assured  that  it  is  feasible 
to  meet  immediate  requirements  while  developing  a  viable  skill  experience  mix 
in  the  inventory. 

The  Aviation  Officer  Requirements  Model  imposes  the  network  model 
described  above  on  the  inventory  of  Aviation  Officers  in  each  subcommunity. 
That  is,  inventory  is  assumed  to  flow  only  on  permissible  network  arcs. 
Therefore,  the  number  of  officers  at  a  given  activity  with  a  given  number  of 
years  of  aviation  service  is  a  function  of  the  total  flow  to  the  appropriate 
network  node.  Network  specification  both  in  terms  of  permissible  transitions 
and  tour  length  at  any  node  are  under  user  control.  Thus  the  user  can  test 
the  impact  of  policy  alternatives  on  requirements. 

E.  MODEL  IMPLEMENTATION 

The  Aviation  Officer  Requirements  Model  has  been  implemented  as  a  "user 
friendly,"  interactive  computer  program  in  a  WANG  2200  VS  computer.  Tne  model 
is  "user  friendly"  in  that  no  special  competence  in  the  operation  of  the  com¬ 
puter  is  required  of  the  user  (although  familiarity  with  the  Aviation  Officer 
requirements  determation  process  is  presumed).  The  user  is  cued  by  means  of  a 
series  of  CRT  displays  through  the  process  of  model  setup,  selection  of  run 
alternatives,  and  designation  of  outputs.  The  displays  are  completely  self- 
explanatory  menus.  They  allow  the  user  to  extensively  alter  model  parameters 
and  run  modes.  The  model  is  reasonably  fast,  so  that  the  user  can  make 
multiple  runs  in  a  single  sitting.  Provision  is  made  for  both  the  visual 
display  of  results  and  hard  copy  printouts. 

7/Ibid.,  p.  23. 
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Appendix  A  to  this  report  contains  a  user's  manual  that  gives  a  detailed 
description  of  the  Model's  operation.  Appendix  B  contains  a  program  source 
listing  for  the  model  which  is  extensively  documented  internally.  Appendix  C 
contains  the  complete  set  of  model  default  parameters. 

The  following  discussion  gives  a  general  overview  of  model  functioning  and 
identifies  the  parameters  which  are  under  user  control. 

At  the  beginning  of  each  model  iteration,  the  user  selects  a  subcommunity 
or  subcomrnuni t i es  to  be  included  in  the  run.  Runs  are  made  on  a  subcomrnuni ty 
basis.  Upon  subcommunity  selection,  a  complete  set  of  default  values  for  the 
model  parameters  is  loaded.  The  user  is  then  led  through  a  series  of  displays 
which  show  the  default  parameters  and  give  the  opportunity  to  make  desired 
changes.  Provision  is  made  for  bypassing  displays  as  desired.  The  following 
model  parameters  are  placed  under  user  control  in  this  process: 

1.  Requirements  Parameters 

a.  Force  Level  Parameters 

-  Number  of  Squadrons  in  the  Subcommunity 
Number  of  Aircraft  per  Squadron 

Crew  Factor  (Number  of  Crews/Assigned  Aircraft) 

Aviators  or  NFOs  per  Crew 
Squadron  Grade  Structure 

b.  Training  Parameters 

Undergraduate  Training  Pipeline  Source 
Undergraduate  Instructor/Graduate  Ratio 
Training  Squadron  Grade  Structure 
Readiness  Squadron  Grade  Structure 

c.  Allocation  Parameters 

Subcommunity  Fraction  of  All  Naval  Aviators  or  NFOs 
Subcommunity  Fraction  of  Strike  Naval  Aviators  or  NFOs 
Subcommunity  Fraction  of  Carrier-Based  Subcomrnuni ties 
Subcoomuni ty  Fraction  of  All  Aviation  Officers 

2.  Inventory  Parameters 

a.  Subcommunity  Retention 

b.  Minimum  Service  Requirement 

c.  Career  Stable  Point 
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3.  Personnel  Management  Policies 


a.  For  Each  Node  in  the  Career  Path  Network  (49) 

Permissible  Precedent  Nodes 
Node  Tour  Length 

b.  Promotion  Flow  Points  to  LCDR  and  CDR 

c.  Plowback  Instructor  Fraction 

d.  Professional  Education 

Postgraduate  Education  Fraction 
War  College  Education  Fraction 

Execution  of  the  model  solution  is  straightforward.  A  trial  inventory  is 
generated  that  will  just  meet  the  subcommunity  numerical  requirement.  The 
accessions  implied  by  this  inventory  are  then  divided  as  specified  by  the 
plowback  fraction,  and  flows  to  fleet  squadrons  and  training  command  are 
calculated.  The  first  tour  length  required  to  make  fleet  squadron  flow  meet 
fleet  squadron  requirements  is  calculated  and  recorded.  Flows  out  of  the 
first  fleet  squadron  node  and  the  training  command  node  are  then  calculated  in 
preparation  for  second  tour  processing. 

For  the  second  and  subsequent  tours,  each  source  flow  is  checked  against 
all  destinations  to  identify  permissible  transitions.  Where  transitions  are 
permitted,  the  requirement  associated  with  the  destination  is  examined.  If 
the  node  requirement  is  greater  than  zero,  source  flow  is  assigned  such  that 
either  the  requirement  is  met  or  the  source  flow  is  exhausted.  The  source 
flow  and  destination  node  requirement  are  then  appropriately  decremented. 

The  above  procedure  is  followed  for  all  permissible  source  flow- 
destination  node  combinations  within  the  tour.  The  scanning  sequence  is  such 
that  low  activity  number  destination  nodes  (Fleet  Tour  «  1)  are  examined 

first.  Thus,  nodes  involving  operational  flying  assignments  (Activities  1-4) 
tend  to  be  favored. 
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When  the  node  scan  for  a  given  tour  is  complete,  there  may  still  be  some 
unused  source  flow,  either  because  all  destination  node  requirements  have  been 
met,  or  because  source  nodes  with  available  flow  have  no  permissible  tran¬ 
sitions  to  destination  nodes  with  unfilled  requirements.  When  this  occurs, 
the  remaining  source  flows  are  sent  to  an  unconstrained  destination  labeled 
"Out-of-Aviation".  Processing  for  this  dummy  node  consists  only  of  compution 
of  the  proper  output  flow  (based  on  the  tour  length  specified  for  "Other")  and 
accounting  for  the  resulting  inventory  at  that  destination.®/ 


The  node  scanning  procedure  described  above  is  repeated 
tours  through  tour  7.  Upon  completion  of  tour  7,  the  degree 
fill  is  examined.  If  all  requirements  have  been  met,  the 
complete  and  a  transfer  is  made  to  the  model  output  routines, 
ments  have  not  been  met,  an  inventory  increment  sufficient 
requirements  i6  generated.  The  network  flow  computations  are 
Iterations  continue  until  all  requirements  are  met. 


for  successive 
of  requirements 
computation  is 
If  all  require- 
to  cover  unmet 
then  repeated. 


The  model  output  routines  consist  of  a  series  of  computations  and  for¬ 
matting  routines  that  tabulate  subcommunity  results,  develop  some  elementary 
derivative  parameters,  and  print  a  summary  output.  An  example  of  output  for¬ 
mat  is  included  in  Appendix  A.  The  following  outputs  are  currently  provided 
in  the  subcommunity  summary  printout: 


8/This  process  is  analagous  to  that  by  which  Aviation  Officers  are  used  to 
fill  non-aviation  billets  (billets  coded  either  1000  (any  line  officer)  or 
1050  (any  warfare  specialty)).  However,  it  should  be  stressed  that  the  model 
flows  Aviation  Officers  to  the  Out-Of-Aviation  Activity  ONLY  when  it  cannot 
make  an  aviation  assignment.  In  actual  practice,  a  portion  of  1000  and  1050 
billets  are  routinely  allocated  to  the  aviation  community  as  requirements. 
These  additional  requirements  may  at  times  enjoy  a  higher  fill  priority  than 
aviation  billets.  The  approach  taken  in  the  model  treats  Out-Of-Aviation  as 
pure  surplus.  This  was  done  in  order  to  provide  planners  who  use  the  model 
with  an  estimate  of  future  Ability  to  fill  non-aviation  billet  demand. 
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1.  Community  Description 


Number  of  Squadrons 
Aircraft  per  Squadron 
Crew  Factor 

-  Naval  Aviators  (NFOs)  per  Crew 
Subcommunity  Retention 
Plowback  Fraction 

2.  Projected  Subcommunity  Population  Characteristics 

Grade  Distribution 

Command  Opportunity  (Squadron) 

-  Department  head  Opportunity  (Squadron) 

-  Annual  Accessions  to  Designator 
Annual  Accessions  to  Training 
First  Tour  Length 

3.  Subcommunity  Employment  Projections 


Distribution  by  Grade  and  Activity 
-  Aviation  Career  Incentive  Pay-Gate  Achievement  Projections 
Fraction  of  Subcommuni ty  Employed  in  Non-Aviation  Assignments 
Total  Annual  Permanent  Change  of  Station  Moves  Attributable  to 
the  Subcommunity 


The  Aviation  Officer  Requirements  Model  is  basically  a  simulation.  For 

each  subcommunity,  a  set  of  structured  requirements  is  presented.  An 
accession  level  is  established  and  made  to  flow  through  the  model  under  a  spe¬ 
cified  6et  of  personnel  management  policies.  In  essence,  the  model  acts  like 
an  omniscient  detailer,  meeting  all  subcommunity  requirements  and  never 
violating  the  policy  constraints.  The  Aviation  Officer  manpower  planner  is 
assured  that  the  solution  presented  is  feasible  in  the  sense  that,  under  the 
initial  conditions  specified,  the  subcommunity  inventory  recommended  can  meet 
all  requirements.  By  summing  over  all  subcommunities,  a  statement  of  total 
Aviation  Officer  requirements  is  obtained. 


F.  ENHANCEMENTS  TO  THE  BASIC  MODEL 


1.  Introduction 


During  the  current  effort  on  the  Aviation  Officer  Requirements  Model,  a 
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number  of  significant  improvements  has  been  made.  In  making  changes,  the 


basic  format  in  which  the  user  interacts  with  the  model  was  preserved, 
user  who  is  familiar  with  the  Version  5.0^/  model  will  find  the  current 
sion  almost  identical  when  making  single  subcommunity  runs.  However, 
are  a  number  of  additional  features  in  the  current  version  and  changes  to 
vious  computation  procedures  with  which  the  user  should  be  familiar.  The 
discussed  below. 


The 
ver- 
the  re 
pre- 
y  are 


2 .  Multiple  Community  Runs 

The  original  version  of  the  Aviation  Officer  Requirements  Model  made  only 
single  subcommunity  runs.  In  order  to  obtain  a  complete  solution  for  all 
Aviation  Officers,  it  was  necessary  to  set  up  and  run  all  23  subcommunities  in 
sequence.  Once  all  runs  had  been  made,  considerable  additional  manual  calcu¬ 
lation  was  required  to  obtain  totals  and  averages.  The  current  version  of  the 
model  contains  a  Multiple  Run  Option  which  eliminates  most  of  this  post¬ 

processing  calculation. 

In  developing  the  Multiple  Run  Option,  the  following  three  basic  design 
objectives  were  established: 

•  Maximize  Flexibility  -  Let  the  user  decide  which  subcommunities  are 

involved.  Account  for  both  subcommunities  selected  and  those  not 

•  selected  within  the  program. 

•  Minimize  Setup  Time  and  Effort  -  Limit  the  number  of  key  strokes  needed 
to  setup  and  run  23  subcommunities.  Permit  the  user  to  bypass  data 
entry  options  where  possible. 

•  Minimize  the  Need  for  Post  Processing  Calculation  -  Perform  Summary 

Calculations  across  subcommunities  and  prepare  appropriate  outputs 
within  the  program. 

All  of  these  objectives  have  been  met. 


9/O'Connor,  Aviation  Officer  Requirements  Study,  Appendix  B.  (Version  3.0 
is  the  model  as  previously  described.  The  enhanced  model  is  Version  7.0.) 


The  approach  taken  in  establishing  the  Multiple  Run  Option  was  to  allow 
the  user  to  place  subcommunities  into  groups  of  his  choice;  that  is,  the  user 
is  permitted  to  define  any  number  of  subcommunity  groupings  between  1  (all 
Aviation  Officers  in  one  group)  and  23  (each  subcommuni ty  in  a  separate 
group).  Within  each  group,  certain  model  parameters  are  assumed  to  be 
constant  (e.g.,  Policy  Variables).  Others  are  permitted  to  vary  at  user 
option  (e.g..  Career  Path  parameters).  In  any  case,  the  user  is  afforded  at 
least  one  opportunity  to  review  default  model  paramete rsii^  for  each  group. 
He  may  change  any  or  all  of  these  values.  In  those  cases  where  intra-group 
variation  is  permitted,  he  may  change  values  for  each  subcommuni ty  within  the 
group  or  elect  to  bypass  review  of  the  remaining  subcommunities,  assigning  a 
single  change  to  all  members  of  the  group. 

As  with  all  other  parameters  in  the  Aviation  Officer  Requirements  Model, 
the  Multiple  Run  Option  is  preset  to  a  default  subcommuni ty  grouping.  This 
default  grouping  classifies  the  23  subcommunities  into  7  groups  (3  for  Naval 
Aviators,  4  for  Naval  Flight  Officers).  The  default  groups  consist  of  sub com¬ 
munities  with  the  same  undergraduate  training  pipeline  source.  Definitions  of 
these  groups  follow: 

a.  Naval  Aviators 

•  Strike  Pipeline  (Group  A) 

-  Light  Attack  (VA) 

Fighter  (VF) 

Medium  Attack  (VAM) 

Electronic  Warfare  (VAQ) 

Carrier  Base  ASW  (VS) 

Force  Support,  Jet 


_10/The  Aviation  Officer  Requirements  Model  contains  a  complete  set 
parameters  representing  the  approximate  state  of  affairs  in  the 
Officer  Community  in  FY  81.  These  values  are  the  default  values 
parameters . 


of  model 
Aviat ion 
of  model 
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•  Maritime  Patrol  Pipeline  (Group  B) 

Maritime  Patrol  (VP) 

Early  Warning  (VAW) 

Electronic  Warefare  (VQ) 

Force  Support  -  Prop 

•  Helicopter  Pipeline  (Group  C) 

-  Helicopter  ASW  (HS) 

-  LAMPS  MK  1  (HSL) 

-  LAMPS  MK  III  (HSL) 

FORCE  Support  -  Helo 

b.  Naval  Flight  Officers 

•  Radar  Intercept  Officer  Pipeline  (Group  D) 

Fighter 

•  Attack  Navigation  Pipeline  (Group  E) 

Medium  Attack  (VAM) 

Electronic  Warfare  (VAQ) 

Carrier  ASW  (VS) 

Force  Support  -  Jet 

•  Airborne  Tactical  Data  Systems  Pipeline  (Croup  F) 

Early  Warning  (VAW) 

•  Navigator  Pipeline  (Group  G) 

Maritime  Patrol  (VP) 

Electronic  Warfare  (VQ) 

Force  Support  -  Prop 

Groups  are  identified  by  a  single  letter.  The  process  of  group  formation 
consists  of  assigning  a  single  letter  to  each  subcommun i t y .  Upon  entering  the 
Multiple  Community  Run  option,  the  user  is  presented  with  a  list  of  subcom¬ 
munities  and  asked  to  make  group  assignments.  At  this  time  he  can: 

o  Make  no  entry,  in  which  case  the  default  group  assignment  will 
be  used  ; 

o  Enter  a  group  assignment  pattern  of  his  own  selection; 
o  Enter  a  zero  for  subcommunities  to  be  excluded  from  the  run. 


Once  group  assignments  have  been  made,  the  user  is  given  the  opportunity 
to  make  model  parameter  changes  for  each  group  in  succession.  At  the  conclu¬ 
sion  of  parameter  adjustment  for  each  group,  a  listing  of  group  members  is 
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presented  for  review.  At  this  point,  the  option  of  resetting  the  group  selec¬ 
tion  process  is  available. 

After  group  selection  and  parameter  adjustment,  model  solution  proceeds  on 
a  subcommunity  by  subcommunity  basis  for  each  selected  group.  Summary  sheets 
are  prepared  for  each  subcommunity  processed.  In  addition,  separate  summarv 
sheets  are  prepared  for  Naval  Aviators  and  Naval  Flight  Officers.  These 
latter  sheets  also  contain  a  list  of  subcommunities  excluded  from  the  run  by 
the  user.  A  detailed  presentation  of  the  operation  of  the  Multiple  Community 
Run  Option  is  given  in  Appendix  A.  Sample  output  summary  sheets  are  also  pre¬ 
sented  . 


3 .  Optimization  of  Assignment  Patterns 


As  originally  designed,  the  Aviation  Officer  Requirements  model  made 
ource  to  destination  flow  assignments  using  the  following  procedure: 


a .  The  highest  numbered  source  node  having  positive  source  flow 
available  was  identified  (Activity  7,  Other,  is  the  highest  numbered; 
Activity  1  is  the  lowest). 

b .  The  lowest  numbered  destination  node  having  unmet  requirements  was 
ident  i  f  led  . 

c .  If  flow  available  from  a_^  was  less  or  equal  than  that  needed  to 
meet  requirements  b_^,  the  flow  was  assigned  and  the  requirement  de.re- 
mented  appropriately.  Available  flow  was  reduced  to  zero  and  pro¬ 
cessing  continued  at  a_^ 

d .  If  flow  available  from  a^_  was  greater  than  that  needed  to  meet 
requirements,  sufficient  flow  was  assigned  to  meet  the  requirement. 
Source  flow  and  requirement  were  decremented.  Processing  continued  at 
b^ 

e .  If  destination  node  scanning  reached  Node  7  with  flow  still 
available,  the  remaining  flow  was  assigned  to  Out-Of-Aviation. 
Processing  continued  at  a. 

f .  Upon  completion  of  source  node  scanning  at  Node  1,  the  tour  number 
was  incremented  and  the  process  repeated. 


•:V 
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This  procedure  has  the  advantage  of  defining  a  feasible  flow  pattern 
which: 

•  Favors  flow  assignment  to  activities  consisting  of  Operational  Flying 
Billets  (Activities  1-4);  and 

•  Gives  assignment  priority  to  flows  from  activities  consisting  of  non- 
operational  flying  billets  (Activities  7  through  5). 

Thus  the  procedure  is  similar  to  what  could  be  expected  to  be  the  general 
philosophy  governing  the  personnel  assignment  process;  namely  "fill  cockpits 
first"  and  "get  non-flying  aviators  back  in  the  cockpit." 

The  above  procedure  has  a  flaw  which  can  lead  to  an  overstatement  of 
requirements.  Source  flow  assignments  early  in  the  scanning  process  may 
completely  foreclose  the  assignment  of  flow  from  later  nodes,  thereby  forcing 
flow  to  Out-Of-Aviation.  An  alternative  assignment  at  the  earlier  node  may 
well  have  permitted  the  assignment  from  the  later  node  to  an  aviation  assign¬ 
ment,  thereby  reducing  the  overall  flow  to  Out-Of-Aviation.  Since  an  obvious 
planning  objective  ought  to  be  the  minimization  of  the  inventory  specified  to 
meet  requirements,  the  procedure  outlined  above  was  modified  to  provide 
assurance  that  the  flow  pattern  adopted  at  each  tour  was  such  as  to  maximize 
the  fill  of  billets  at  aviation  assignments.  This  was  accomplished  by 

adapting  the  problem  of  specifying  the  flow  between  nodes  in  a  given  tour  so 
as  to  make  it  amenable  to  solution  using  the  maximum  flow  algorithm  of  network 
theory  .iJV 

Figure  3  is  a  network  diagram  illustrating  the  device  used  to  formulate 
the  tour  source-destination  flows  as  a  maximum  flow  problem.  The  seven  desti¬ 
nation  nodes  for  Tour  i  are  shown  right-of-center  in  ascending  order  of  acti- 


nySee,  for  example,  H.M.  Wagner,  Principles  of  Operations  Research,  2nd 
ed.  (Englewood  Cliff,  New  Jersey:  Prentice  Hall,  1969),  Appendix  1. 
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vity  number  (i»l-7).  On  the  left  the  source  nodes  representing  flows  out  of 
tour  j-1  are  shown  in  a  similar  manner.  Arcs  connecting  these  two  node  sets 
represent  the  permissible  transitions  between  tour  j-1  and  tour  j.  Finally, 
it  is  conceptually  useful  to  envision  all  flows  •‘s  originating  at  a  single 
source  and  terminating  at  a  single  sink. 


TOL’P  j-1  1  =  1-7  TO.'fc 


NOTE  ONL  V  PARTIAL  IN-TOUR  ARC  STRUCTURE  SHOWN 


FIGURE  3 

MAXIMUM  FLOW  PROBLEM  FOf  -rOUR  TRANSITIONS 


Arc  capacities  in  Figure  3  are  set  as  follows: 


a-  Source  to  Nodes  (j-1):  Arc  capacity  is  equal  to  the 

flow  at  the  (j-1)  Node.  The  total  source  flow  is  therefor 
the  total  output  flow  from  the  previous  tour. 

b •  Nodes  (j-1)  to  Nodes  (j) :  Arc  capacity  is  the  lesser  o 

•  Available  source  flow; 

•  The  flow  which  will  just  meet  the  remaining  req j 
Node  ( i T  j )  .  1 2/  Subject  to  the  constraint  tha'  be 
sitions  have  zero  flow  capacitv. 

c*  Nodes  ( j )  to  Sink:  Arc  capacity  is  the  flow  which  will 
the  remaining  requirement  at  Node  (i,j). 


When  arc  capacities  are  specified  in  the  manner  outlined  £ 
resulting  flows  within  the  tour  are  guaranteed  to  be  within  source 
constraints  and  less  than  or  equal  to  the  flow  required  to  fill  d 
node  requirements. 


The  network  ol  Figure  3  is  solved  using  the  maximum  flow  alg 
This  algorithm  employs  a  systematic  search  o:  all  possible  paths  t 
network  to  find  one  that  will  permit  an  increase  in  total  network 
procedure  terminates  when  no  such  path  exists.  In  the  present  case, 
geometry  of  the  network  permits  a  simplified  path  scanning  process  w 


1 2 /The  flow  meeting  the  remaining  requirement  at  Node  (i,j) 


is  gi 


(•)  F,, 


Where:  Fij  =  Arc  capacity  for  Arcs  terminating  at  Node  (i,j) 

REQij  =  Reraa.ning  Requirement  at  Node  (i,j) 

TL  *  Tour  Length  Specified  for  Node  (i,j) 

RT  *  Continuation  rate  for  year  t 
Note:  t  and  TL  specified  in  years 

1 3/F . B .  Hiller  and  G.J.  Lieberman,  Introduction  to  Operations 
(San  Francisco:  Holden-Day,  Inc.,  August  1967),  pp .  219-216  for  th 
algorithm  used . 


greatly  simplifies  computer  implementation  of  the  algorithm. 


Consider  an  initial  trial  solution  for  the  network  of  Figure  3  wl  ich 
simply  proceeds  from  source  node  arc  to  source  node  arc,  allocating  as  much  ot 
the  source  flow  as  possible  to  available  paths  through  the  remainder  of  th* 
network.  At  the  conclusion  of  this  step,  one  of  the  three  conditions  will 
hold: 

a .  The  capacity  specified  for  source  flow  arcs  will  be  exhausted, 
indicating  an  optimum  flow; 

b  ■  The  capacity  specified  for  sink  flow  arcs  will  be  exhausted,  indi¬ 
cating  an  optimum  flow; 

c  .  The  capacity  will  remain  on  one  or  more  source  flow  arcs  AND  on 
one  or  more  sink  flow  arcs,  indicating  a  potential  for  increased  flow. 
In  this  case,  iteration  is  required  until  either  a^  or  b^  above 
occurs  . 

Given  the  condition  described  in  above,  the  objective  of  the  algorithm 
becomes  the  elimination  of  positive  flows  on  either  side  of  the  network.  In 
the  general  case,  the  positive  source  capacities  will  not  be  connected  to  the 
positive  sink  capacities  (since  otherwise  the  capacities  would  have  beer,  eli¬ 
minated  during  initial  assignment  of  flows).  Path  analysis  then  consists  of 
transferring  existing  flows  to  other  feasible  sources/destinations  so  as  to 
create  a  positive  flow  capacity  on  some  arc  out  of  the  source  and  a  positive 
flow  capacity  on  some  arc  into  the  destination.  The  proper  adjustment  can  be 
found  by  defining  a  path  between  the  two  nodes  consisting  of  forward  arcs 
( j  —  1  to  j)  with  positive  remaining  capacity  and  reverse  arcs  (j  to  j-1  ) 
currently  having  positive  (forward)  flow. 

Having  found  such  a  path,  the  proper  adjustment  is  given  by  the  minimum  of 
the  available  capacity  on  forward  arcs  or  current  flow  on  reverse  arcs.  The 
adjustment  can  be  made  by  simply  proceeding  along  the  defined  path,  adding  the 
flow  on  forward  paths  and  subtracting  it  on  reverse  paths.  When  no  such  path 
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can  be  found,  maximum  possible  flow  has  been  attained.  The  dashed  lines  in 
Figure  3  represent  one  such  path  search  for  the  case  where  positive  source 
flow  remains  at  node  (5,  j-1)  and  requirements  remain  at  node  (5,j). 

When  the  procedure  outlined  above  terminates,  any  remaining  sou-ce  flow  is 
surplus  to  aviation  requirements  for  the  tour  in  question.  This  flow  is  then 
assigned  to  the  Out-of-Aviation  destination.  For  any  given  tour,  this  is  the 
minimum  flow  that  can  be  achieved,  given  the  specification  of  tour  transitions 
and  destination  tour  lengths  provided  by  the  user. 

The  implementation  of  the  maximum  flow  algorithm  in  the  Aviation  Ofli.er 
Requirements  Model  will  not  be  apparent  to  the  user.  Model  operation  is  func¬ 
tionally  similar  and  no  additional  inputs  are  required  of  the  user.  Provision 
is  made  for  printing  out  interim  network  solutions  when  the  in-process-monitor 
option  is  selected.  The  user  familiar  with  the  previous  version  of  the  model 
will  also  notice  a  significant  reduction  (about  10  percent)  in  both 
Out-Of-Aviation  assignments  and  overall  requirements, 

A.  Inclusion  of  Promotion  Flow  Points 

The  original  version  of  the  Aviation  Officer  Requirements  Mode- 1  converted 
inventory  aviation  year  groups  to  an  equivalent  grade  level  for  purposes  of 
inventory/requirements  comparisons.  This  was  done  by  establishing  grade  level 
transitions  at  8.5  years  of  aviation  service  (03  to  0A)  and  13,5  years  ol 
aviation  service  ( 0A  to  05).  A  revision  has  now  been  incorporated  to  allow 
the  user  to  specify  promotion  flow  points  in  years  of  commissioned  service. 


The  model  processes  user-specified  promotion  flow  points  by  converting  the 
input  from  years  to  months  and  subtracting  18  months  to  convert  the  entered 
value  to  months  of  aviation  service.  (The  model  makes  all  calculations  in 
time  increments  of  1  month  and  expresses  results  in  units  of  1  year.) 

Default  values  for  the  Promotion  Flow  Point  Parameter  are  10  years  (03  to 
04)  and  15  years  (04  to  05).  These  values  correspond  to  the  values  used  in 
the  original  version  of  the  model. 

5 .  Upward  Detailing 

Upward  detailing  refers  to  the  process  by  which  individuals  at  one  grade 
level  are  used  to  fill  requirements  at  the  next  higher  grade  level  (e.g.,  the 
assignment  of  a  Lieutenant  to  fill  a  Lieutenant  Commander  billet).  A  feature 
which  allows  the  user  to  implement  a  simulation  of  this  process  has  been 
incorporated  in  the  model  to  allow  planners  to  directly  assess  the  effects  of 
grade  level  mismatches  between  inventory  and  requirements.  Inferences 
regarding  such  mismatches  can  be  drawn  from  Ou t -Of -Avi a t i on  flows.  However, 
if  mismatches  are  severe,  the  model  is  likely  to  drive  inventory  up  and  first 
tour  length  down,  thereby  distorting  indirect  requirement  flows.  By  allowing 
junior  surpluses  to  meet  senior  requirements,  this  effect  is  avoided  and  the 
numbers  so  assigned  become  a  direct  indicator  of  grade  imbalance.  Further¬ 
more,  the  planner  gains  insight  into  the  long  term  ^rsonnel  management 
problems  likely  to  attend  a  given  solution. 

Implementation  of  upward  detailing  in  the  model  is  straightforward.  The 
user  specifies  an  upper  limit  on  the  fraction  of  senior  billets  in  any  acti¬ 
vity  which  are  permitted  to  be  filled  by  flows  from  tours  at  a  lower  grade 
level  (default  value  is  set  to  20  percent).  1  model,  while  processing 
flows,  establishes  maximum  flow  within  each  tour  as  described  above.  However, 


if  upward  detailing  is  permitted,  surplus  flows  from  the  tour  assignment  pro¬ 
cess  are  first  flowed  against  requirements  at  the  next  higher  grade  level 


before  being  assigned  to  Out-of-Aviation.  Feasible  assignments  are  made. 
Resulting  flows  are  recorded  in  the  current  tour,  while  requirements  are 
decremented  at  the  higher  grade  level.  In  the  final  result,  the  source  grade 
level  will  be  shown  in  surplus  for  the  activities  involved,  while  the  destina¬ 
tion  grade  level  will  be  shown  in  deficit.  The  model  reports  the  aggregate 
percentage  of  requirements  met  at  each  grade  level  by  upward  detailing. 

In  addition  to  the  overall  constraint  described  above,  upward  detailing  is 
constrained  in  the  following  ways: 

•  Upward  detailing  to  command  (Tour  6,  Activities  1-3)  is  not  allowed; 

•  Upward  detailing  to  04  billets  in  squadrons  (Tours  4  and  5,  Activities 
1-3)  is  constrained  to  preserve  three  LCDR  billets  for  squadrons,  with 
only  Naval  Aviators  and  four  LCDR  billets  for  squadrons  with  both 
Aviators  and  NFOs.  (This  preserves  a  minimum  flow  for  department  head 
level  billets); 

•  Upward  detailing  to  post  command  afloat  billets  (Tour  7,  Activity  3)  is 
not  allowed; 

•  Upward  detailing  is  not  allowed  prior  to  tour  three  for  any  activity. 

The  above  restrictions  were  adopted  as  being  reasonably  representative  of 
current  practice  with  respect  to  upward  detailing.  They  are  not  variable  at 
user  option,  but  they  could  easily  be  modified  by  means  of  minor  program 
changes  within  the  model. 

6 .  Automatic  Allocation  Parameter  Scaling 

The  Aviation  Officer  Requirements  Model  uses  a  set  of  allocation  factors 
to  determine  the  assignment  of  billets  to  a  subcommunity  in  those  cases  where 
the  requirement  cannot  be  directly  or  indirectly  associated  with  the  subcom- 
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munity  mission.  Activities  4  through  7  consist  of  allocated  billets.  The 
allocation  base  is  the  direct  (Activity  1)  requirement,  with  each  subcommunity 
receiving  a  fraction  of  non-direct  requirements  equal  to  the  ratio  of  subcom¬ 
munity  direct  requirements  to  total  Navy  direct  requirements.  Three  major 
allocation  bases  are  employed — one  for  Naval  Aviator  billets,  a  second  for 
Naval  Flight  Officer  billets,  and  a  third  for  billets  designated  for  either 
Naval  Aviators  or  Naval  Flight  Officers.  A  fourth  allocation  parameter  is 
used  only  to  allocate  carrier  air  wing  staff  positions  among  carrier-based 
subcommunities.  Thus  there  are  four  allocation  parameters  associated  with 
each  subcommunity. 


The  application  of  the  allocation  factors  in  subcommunity  definition  as¬ 
sumes  that  the  subcommunities  collectively  cover  all  Aviation  Officer  require¬ 
ments.  The  sum  of  the  allocation  factors  of  each  type  over  all  subcommunities 
equals  one.  These  factors  are  presented  to  the  user  as  model  parameters  under 
his  control  primarily  so  that  they  can  be  adjusted  in  response  to  force  level 
changes . 

The  problem  with  allocation  factor  changes  is  that  if  one  factor  in  a 
class  is  changed,  the  remaining  factors  over  all  subcommunities  must  also  be 
adjusted  to  maintain  a  unity  summation.  In  the  original  version  of  the  model, 
the  user  had  to  make  these  adjustments  manually  for  each  subcommunity  for 
which  a  run  was  desired.  For  complex  force  level  changes,  the  process  was 
tedious  and  subject  to  both  computational  and  entry  errors.  The  current  ver¬ 
sion  of  the  model  corrects  this  deficiency. 
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given  subcommunity,  or  if  he  alters  one  of  the  allocation  parameters  for  a 
subcommuni ty . 


Total  Permanent  Change  of  Station  (PCS)  Moves 


A  great  deal  of  attention  is  currently  being  directed  to  the  cost  of 
moving  personnel  from  place  to  place  within  the  Navy.  Congressional  interest 
in  reducing  these  costs  and  a  series  of  budget  shortfalls  in  the  Military 
Personnel  Navy  Appropriation  account  have  caused  repeated  expressions  of  con¬ 
cern  over  the  frequency  of  personnel  moves.  Explicit  and  implicit  constraints 
in  the  PCS  account  are  having  a  progressively  greater  impact  on  the  overall 
process  of  personnel  management. 


While  the  issue  of  PCS  moves  is  not  directly  related  to  the  intended  use 
of  the  Aviation  Officer  Requirements  Model,  the  essential  variables  which 
drive  such  moves  are  included  in  the  model  formulation.  Flows  between  states 
represent  the  bulk  of  such  moves,  and  other  moves — such  as  the  move  of 
accessions  from  home  to  duty  and  the  move  of  losses  from  duty  to  home — are 
easily  derived  from  the  model  parameters.  Thus  it  is  possible  to  attribute  to 
each  subcommunity  an  estimate  of  the  annual  number  of  PCS  moves  resulting  from 
a  given  configuration  of  force  level  and  policy  parameters.  Since  this  infor¬ 
mation  is  potentially  useful  to  the  planner,  the  necessary  calculations  were 
incorporated  into  the  model  and  the  results  presented  in  the  community  summary 
outputs  . 


8.  Model  Speed  of  Execution 


In  the  process  of  revising  the  Aviation  Officer  Requirements  Model,  the 

following  changes  have  been  made  which  decrease  model  solution  time: 

•  The  method  used  to  make  initial  inventory  estimates  and  inventory 
increment  calculations  has  been  refined.  This  has  significantly 
reduced  the  number  of  iterations  necessary. 
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1 

•  While  the  adoption  of  the  within  tour  optimization  procedure  has 
increased  computational  time,  the  increase  is  more  than  offset  by 
decreases  in  the  overall  number  of  iterations  resulting  from  the  higher 
level  of  assignments  within  aviation. 

•  Implementation  of  the  Multiple  Run  Option  forced  revision  of  a  large 
number  of  processing  and  storage  routines.  In  the  process  of  revision, 
these  routines  were  made  more  efficient. 

•  The  model  has  been  moved  from  the  WANG  2200  VS  80  computer  to  the  WANG 
2200  VS  90.  The  VS  90  is  a  faster  computer.  (Source  codes  and  object 
codes  remain  compatible  with  the  VS  80.) 


As  result  of  the  above  factors,  execution  time  has  improved  by  a  factor  of 
three.  For  example,  the  version  5.0  model  required  approximately  7.5  minutes 
to  complete  calculations  on  the  Light  Attack  Subcommunity  after  model  setup. 
The  current  version  takes  2.5  minutes  to  complete  the  same  task.  A  multiple 
subcommunity  run  over  all  subcommunities  typically  takes  25  minutes  to 


IV.  APPLICATION  OF  THE  MODEL 


A.  GENERAL 

The  previous  sections  of  this  report  have  given  the  underlying  rationale 
and  a  detailed  description  of  the  Aviation  Officer  Requirements  Model.  The 
principal  features  of  the  model  bearing  on  its  utility  are: 

•  The  large  number  of  model  parameters  under  user  control; 

•  The  user  friendly  environment  created  for  the  model  which  facilitates 
its  employment; 

•  The  speed  of  execution  which  facilitates  comparison  of  alternative 
strategies. 

Because  of  the  broad  range  of  parameters  available  to  the  user,  the  model 
is  highly  flexible.  It  can  be  used  to  analyze  a  broad  range  of  manpower 
issues.  The  subsections  which  follow  demonstrate  a  few  such  applications. 
Others  will  undoubtedly  come  to  mind.  The  intent  here  is  to  introduce  the 
potential  user  to  the  model.  It  should  be  emphasized  that  the  examples  are 
for  illustrative  purposes  only.  The  numbers  do  not  necessarily  reflect  the 
currently  specified  Navy  Aviation  Officer  requirements,  nor  do  some  of  the  key 
parameters  (such  as  retention  levels)  necessarily  reflect  current  Navy 
experience . 

B.  FORCE  LEVEL  VARIATIONS 

The  principal  force  level  issue  impacting  on  Naval  Aviation  today  is  the 
impending  increase  from  12  to  15  Carrier  Battle  Groups.  Among  the  manpower 
problems  attending  that  increase  will  be  meeting  additional  air  crew  require¬ 
ments  for  a  minimum  of  two  more  Carrier  Air  Wings.  Model  set  up  and  post  run 
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analysis  of  runs  for  a  12  Air  Wing  configuration  and  a  14  Wing  configuration 
are  given  below: 


1 .  Run  Set  Up 


Two  sets  of  two  runs  each  were  made  in  Multiple  Community  Run  Mode: 

•  12  Air  Wing  Runs 

Carrier  Based  Subcommunities 
Non-Carrier  Based  Subcommunities 

•  14  Air  Wing  Runs 

Carrier  Based  Subcommunities 
Non-Carrier  Based  Subcommunities 

The  same  information  could  have  been  obtained  by  making  only  two  runs  for 
all  subcommunities.  However,  by  splitting  the  runs  as  indicated,  the  user 
obtains  the  benefit  of  summary  statistics  which  are  focused  on  the  indicated 
subgroups.  This  eliminates  the  necessity  of  gathering  and  summing  data  from 
individual  subcommunity  printouts. 


Runs  for  both  12  and  14  carrier  air  wings  were  made  at  model  default  para¬ 
meter  values  with  the  following  exceptions: 

•  Retention 

Fixed  Wing  Aviators  45% 

Rotary  Wing  Aviators  50% 

Naval  Flight  Officers  55% 

•  Tour  Lengths 

Fourth  and  Fifth  Fleet  Tours  =  30  months  (Default  =  36 

months) 

These  values  were  selected  as  being  more  representative  of  current  experience 
than  model  default  values. 
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2. 


Results 


The  overall  results  of  the  runs  indicate  an  increase  in  Aviation  Officers 
from  15,779  to  16,846 — a  total  increase  of  1,067.  Of  these,  614  are  Naval 
Aviators  and  443  are  Naval  Flight  Officers.  An  analysis  of  these  differences 
by  activity  for  subcommunities  which  are  carrier  based  and  those  which  are  not 
is  presented  in  Table  III. 


TABLE  III 


ANALYSIS  OF  REQUIREMENTS  CHANGE 
(12  to  14  CARRIER  AIR  WINGS) 


Model  Run 

Change 

Activities 

1-3 

Activities 

4-7 

Out-of- 
Aviat ion 

Total 

CV  Subcommunities 

NA 

+584 

+130 

+  112 

+  826 

NFO 

+  290 

+  61 

+  222 

+  573 

TOTAL 

+874 

+  191 

+  334 

+  1399 

Non-CV  Subcomm. 

NA 

-  20 

-126 

-  56 

-  202 

NFO 

-  8 

-  51 

-  71 

-  130 

TOTAL 

-  28 

-177 

-127 

-  3 32 

Net  All  Subcomm. 

+846 

+  14 

+  207 

+  1067 

The  changes  in  Activities  1-3  in  Table  III  reflect  changes  in  fleet 
manning  and  associated  increments  to  training  resources  and  the  training  and 
transient  pipeline.  For  the  CV  Subcommunities,  a  total  of  874  officers  are 
required  as  a  result  of  the  addition  of  two  Carrier  Air  Wings.  In  addition, 
because  of  the  increase  in  relative  size  of  the  CV  Subcommunities,  allocation 
parameters  are  changed,  resulting  in  an  increase  in  requirements  in  Activities 
4-7  of  191  officers.  The  increase  in  Out-Of-Aviation  flow  of  334  is  caused  by 

the  large  relative  increase  in  junior  officer  requirements  associated  with  the 
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new  Air  Wings.  These  officers  become  available  for  Out-Of-Aviation  assign¬ 
ments  at  more  senior  grades  because  few  senior  aviation  requirements  are 
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added.  The  relatively  larger  increase  associated  with  Naval  Flight  Officers 
reflects  the  higher  retention  (55  percent)  assumed  for  NFOs . 

For  the  Non-Carrier  Subcommunities,  Activities  4-7  show  a  decrease  in 
requirements  as  a  result  of  change  in  reallocation  parameters.  As  the  rela¬ 
tive  size  of  the  CV  Subcommunities  increases,  the  Non-CV  Subcommun i t ies  are 
allocated  less  of  the  indirect  requirement  s . 14 / 

The  Non-CV  Subcommun it ies  also  experience  reduced  requirements  in 
Activities  1-3  and  in  Out-Of-Aviation  flow.  The  minor  change  (-28)  in 
Activities  1-3  is  due  to  changes  in  transient  and  pipeline  requirements 
resulting  from  flow  patterns  which  tend  to  favor  operational  flying  billets  at 
the  higher  force  levels.  The  reduction  in  Out-Of-Aviation  flow  reflects  an 
improved  match  between  inventory  and  requirement  grade  levels  in  these  subcom¬ 
munities  at  the  retention  levels  assumed. 

Overall,  the  increase  in  force  level  by  two  Carrier  Air  Wings  results  in  a 
net  increase  in  direct  requirements  of  846,  an  increase  in  indirect  require¬ 
ments  of  14,  and  an  increase  in  Out-Of-Aviat ion  flow  of  207.  Thus,  approxima¬ 
tely  20  percent  of  the  increase  is  the  result  of  an  imbalance  between  junior 
requirements  and  senior  requirements.  The  user  could  eliminate  this  surplus 
by  relaxing  the  20  percent  constraint  on  upward  detailing  (the  model  default 


1_4/The  net  change  in  Activities  4-7  over  all  subcommun  i  t  ies  would  be  zero 
except  for  the  fact  that  the  model  generates  professional  development  require¬ 
ments  that  are  proportional  to  the  population.  The  net  increase  of  14 
reflects  an  increase  in  postgraduate  education  and  War  College  student 
requirements  resulting  from  the  larger  overall  size  of  the  projected  Aviation 
Officer  inventory. 
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value).  However,  a  word  of  caution  is  in  order  regarding  the  interpretation 


of  Out-Of-Aviation  flow. 

The  Navy  currently  has  requirements  for  approximately  40,000  unrestricted 
line  officers.  This  includes  approximately  7,500  1000/1050  billets  (Any  URL 
Officer/Any  Warfare  Specialist)  that  are  not  directly  associated  with  anv 
unrestricted  line  community.  The  aviation  "fair  share"  of  these  billets  is 
approximately  2,800.  These  are  NOT  included  in  the  requirements  statement,  of 
the  Aviation  Officer  Requirements  Model.  Instead,  the  model  identifies 
resources  which,  because  of  career  path  or  grade  level  constraints,  will  be 
surplus  to  direct  aviation  requirements  and  therefore  are  AVAILABLE  to  meet 
non-aviation  requirements.  The  total  Out-Of-Aviation  flow  supplied  in  the 
baseline  case  (12  Air  Wings)  of  the  above  analysis  is  1,894 — about  two-thirds 
of  a  "fair  share".  The  increment  added  in  the  force  level  increase  to  1-* 
Carrier  Air  Wings  in  fact  increases  the  disparity  between  available  fill 
resources  and  the  "fair  share".  The  implication  for  the  planner  is  that  the 
1100  officer  community  will  have  to  assume  responsibility  for  a  propor¬ 
tionately  larger  share  of  the  1000/1050  billet  requirements. 

The  Aviation  Officer  Requirements  Model  also  provides  projections  of 
Aviation  Officer  accession  requirements  and  undergraduate  flight  training 
requirements.  For  the  present  case,  the  results  summarized  for  CV 
Subcommunities  and  Non-CV  Subcommunities  are  shown  in  Table  IV. 

The  increase  in  force  level  from  12  to  14  Carrier  Air  Wings  increases 
annual  undergraduate  training  output  requirements  by  63  Naval  Aviators  and  45 
Naval  Flight  Officers.  Annual  accessions  to  support  the  higher  training  rates 
increase  by  89  student  Naval  Aviators  and  45  student  Naval  Flight  Officers. 
The  mix  implied  in  the  increase  is  more  significant  to  the  planner.  More  than 
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TABLE  IV 


ACCESSIONS  AND  UNDERGRADUATE  TRAINING  REQUIREMENTS 
(12  VS.  14  CARRIER  AIR  WINGS) 


CV  Subcommuni t ie s 

NON-CV  Subcommuni t ies 

Totals 

Training 

Pi pe 1 ine 

Accessions 

(12/14) 

Training 

Rate 

(12/14) 

Accessions 

12/14 

Training 

Rate 

17/14 

Accessions 

12/14 

Training 

Rate 

12/14 

Naval  Aviator 

o  Strike 

458/554 

326/395 

124/114 

8/81 

528/668 

414/476 

(Difference) 

(+96) 

(  +  69) 

(-10) 

(-7) 

(  +  86) 

(  +  62) 

o  Maritime  P/T 

37/42 

28/33 

349/348 

271/269 

386/390 

300/302 

(Di f  f erence  ) 

(  +  5) 

(+4) 

(-1) 

(-2) 

(  +4 ) 

(+2) 

o  Helicopter 

74/85 

55/63 

340/328 

252/243 

414/413 

307/306 

(Di f  f erence  ) 

(  +  11) 

(+8) 

(-12) 

(-9) 

(-1) 

(-1) 

Totals 

410/491 

813/790 

611/593 

1382/1471 

1021/1084 

(+81  ) 

(-23) 

(-18) 

(+89) 

-  J 

(  +  63) 

Naval  Flight 
Officers 

o  Radar  Int .  Off. 

122/153 

68/85 

0/0 

0/0 

122/153 

68  .'8  5 

(Di f  fe  rence ) 

(  +  31) 

(  +  17) 

(0) 

(0) 

(  +  31) 

(  +  17) 

o  Attack  Nav  . 

224/281 

126/158 

15/15 

8/9 

238/296 

13- '167 

(Di f  ference ) 

(+57) 

(  +  32) 

(0) 

(-1) 

(  +  57) 

(  +  33) 

o  ATDS  Off. 

61/72 

40/48 

0/0 

0/0 

61/72 

40/48 

(Di f  ference  ) 

(  +  11) 

(+8) 

(0) 

(0) 

(  +  11 ) 

(+8) 

o  Navigator 

0/0 

0/0 

270/251 

189/175 

270/251 

'C,VP* 

(Difference) 

(0) 

(0) 

(-19) 

(-13) 

(-19) 

i  - 

Totals 

407/506 

234/291 

285/266 

197/185 

692/772 

431/*. v 

(+99) 

(  +  57) 

(-19) 

(-12) 

(  +  80) 

(  +  451 

half  of  Che  total  increase  in  training  rate  is  in  the  Strike  (Jet)  Training 


Pipeline.  This  is  the  most  costly  pipeline  by  far.  The  per  capita  cost  ol 
the  increased  undergraduate  training  will  therefore  be  significantly  higher 
than  the  current  average  cost  per  graduate. 

As  with  any  model,  the  results  obtained  above  suggest  other  alternatives 
which  should  be  examined.  In  an  actual  planning  scenario,  the  user  would 

undoubtedlv  want  to  examine  the  impact  of  variations  in  s  ubc  omrr.un  i  t  y  retention 

on  the  outcome.  Upward  detailing  constraints  could  also  be  tested.  Tne 
planner  can  even  examine  the  impact  of  varying  squadron  grade  structure, 

aircraft  per  squadron,  or  seat  factor  in  order  to  assess  the  impact  of  short 

term  resource  constraints  on  the  long  term  Aviation  Officer  inventory. 

A  word  of  advice  to  the  potential  user  is  in  order  at  this  point.  The 
Aviation  Officer  Requirements  Model  places  a  large  number  of  parameters  under 
user  control.  If  the  user  changes  many  parameters  in  a  single  run,  he  may- 
have  difficulty  interpreting  the  results.  To  avoid  this,  the  following 
approach  to  model  utilization  is  recommended,  based  on  experience  gamed  on 
more-  than  a  hundred  model  runs: 

•  Establish  a  baseline  run  for  comparison  purposes.  The  default  para¬ 
meter  settings  approximate  FY  81  requirements. 

•  Change  no  more  than  a  half  dozen  parameters  from  run  to  run. 

•  Have  a  plan  of  attack.  Take  a  few  minutes  to  outline  a  sequence  of 
runs  before  going  on  the  computer.  This  saves  times  and  minimizes 
rerun  requirements. 

For  user  convenience,  runs  are  marked  with  the  date  and  time  of  completion 
in  the  upper  right  hand  corner  of  each  sheet.  The  frequent  user  eventually 
will  find  this  feature  useful  in  organizing  the  data.  The  four  runs  used  in 
the  discussion  of  the  12  to  Air  Wing  force  level  change  produced  34  pages 
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of  printout.  The  total  time  to  complete  the  four  runs  was  one  hour  anil  three 


minutes . 

L.  GRADE  STRUCTURE  ANALYSIS 

Requirements  are  basically  billet-by-billet  statements  of  Navy  needs. 
Inventory  development  is  dominated  by  loss  rates  that  are  largely  determined 
by  factors  exogenous  to  the  Navy.  Given  those  tacts,  it  is  not  surprising 
that  inventory  and  requirements  seldom  match  exactly  at  the  grade  level  of 
detail.  Occasional ly ,  after  a  period  of  extremely  high  or  extremely  lou 
retention  for  example,  it  may  be  necessary  to  correct  the  imbalances  by  either 
adjusting  requirements  grade  levels  or  modifying  inventory  grade  distribution 
(by  changing  promotion  flow  points).  The  Aviation  Officer  Requirements  Model 
can  be  used  as  an  analytic  tool  in  support  of  this  process. 

The  model  outputs  which  provide  a  measure  oi  grade  imbalance  are  the 
upward  detailing  fills  and  the  Out-Of-Aviat ion  flows.  The  model  reports  lower 
grade  fills  and  the  number  of  Ou t -01 -Avi a t i on  fills  by  grade  level  for  each 
subcommunity.  The  model  resorts  to  upward  detailing  only  when  it  cannot 
employ  source  flow  in  the  current  tour  at  maximum  flow. 

Out-Of-Aviation  flow  is  employed  only  when  flow  cannot  be  employed  within 
aviation,  either  because  requirements  have  been  met  or  upward  detailing  limits 
have  been  achieved.  In  either  case,  the  existence  of  such  flows  indicates  a 
surplus  of  inventory  over  grade  level  requirements. 

To  illustrate  this  application,  Table  V  reproduces  output  data  for  tin* 
Light  Attack  and  Fighter  Subcommuni  ties  from  the  runs  produced  in  the  pre¬ 
ceding  example. 
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TABLE  V 


UPWARD  DETAIL  AND  OUT  OF  AVIATION  FLOWS 
(LIGHT  ATTACK  AND  FIGHTER  NAVAL  AVIATORS) 

Grade 

Subcommuni  ty _ LT _ LCDR 

Light  Attack 

Number  Up  Detailed  to  -  52 

Out-Of-Aviation  41  20 

Fighter 

Number  Up  Detailed  to  5 

Out-Of-Aviat ion  0  0 


Note:  Base-Line  Case  (12  Air  Wings) 

Retention  =  45% 

In  the  case  of  Light  Attack,  a  total  of  93  surplus  Lieutenants  occurred, 
of  which  52  were  upward  detailed  within  the  20  percent  constraint.  The 
remaining  41  were  flowed  to  Out-Of-Aviation.  The  indication  here  is  that  con¬ 
verting  52  billets  at  the  LT  Level  to  LCDR-CDR  billets  would  provide  a  better 
grade  match.  Additionally,  if  CDR  billet  requirements  could  be  reduced,  the 
lower  grade  surpluses  would  also  be  reduced,  thus  decreasing  Out-Of-Aviation 
flow.  Alternatively,  moving  the  promotion  flow  point  to  LCDR  forward 
(earlier)  would  achieve  the  same  effect. 

In  the  case  of  the  Fighter  Subcommuni ty ,  a  total  of  nine  lower  grade  fills 
were  used  at  the  LCDR  and  CDR  levels  indicating  a  near  perfect  inventory- 
requirements  match. 

D.  RETENTION  ANALYSIS 

The  role  of  projected  retention  rates  for  Aviation  Officers  in  determining 
inventory  projections  has  already  been  discussed.  Clearly,  retention  is  a  key 
model  variable.  Since  retention  is  not  under  Navy  control,  the  planner  is 


required  to  use  estimates  which  are  largely  based  on  history  but  which  hope¬ 
fully  take  cognizance  of  the  sociological  and  economic  phenomena  known  to 
influence  retention.  Above  all,  the  planner  should  recognize  the  sensitivity 
of  model  results  to  retention  and  perform  the  required  sensitivity  analysis. 
The  following  example  illustrates  this  point. 


The  retention  values  used  earlier  in  this  section  for  the  baseline  case 
(B.  Force  Level  Variations)  were  45  percent  for  fixed  wing  aviators,  50  per¬ 
cent  for  rotary  wing  aviators,  and  55  percent  for  Naval  Flight  Officers. 
These  estimates  assume  that  historical  differences  in  retention  between  these 
Aviation  Officer  groups  will  persist,  and  that  there  will  be  a  modest  recovery 
in  retention  rates  from  the  very  low  levels  experienced  in  the  late  1970s.  In 
the  1984  Manpower  Requirements  Report  submitted  by  the  Office  of  the  Secretary 
of  Defense  to  the  Congress  in  February  1983,  Navy  estimates  of  current  reten¬ 
tion  are  provided,  and  steady  state  retention  goals  for  Aviation  Officers  are 
established  at  55  percent  for  Naval  Aviators  and  60  percent  for  Naval  Flight 
Of  f  icers  ._J_5/  Table  VI  compares  the  model  output  for  the  baseline  case 
described  previously  and  that  obtained  using  the  Manpower  Requirement  Report 
(MRR-84)  steady  state  retention  values. 


Table  VI  shows  that  the  model  produces  essentially  the  same  inventory  for 
both  cases.  However,  the  grade  distribution  is  significantly  different.  The 

MRR-84  case  contains  327  fewer  Lieutenants,  148  more  Lieutenant  Commanders, 

and  183  more  Commanders.  Thus,  compensation  costs  would  be  somewhat  higher  at 

the  MRR-84  retention  figures  (About  4.5  m/year  RMC  in  FY  83  dollars). 


J_5/U.S.  Department  of  Defense,  Military  Manpower  Report  to  the  Congress, 
February  1983,  p.  IV-13. 


51 


TABLE  VI 


BASELINE  VS.  MRR-84  RETENTION 


CASE 

CLASS 

Grade  Distribution 

LT  LCDR  LDR  TOTAL 

Training 

Rate 

Out  Of 

Aviation 

BASELINE 

NA 

6728 

1844 

2325 

10907 

1020 

1007 

CASE 

NFO 

2920 

885 

1067 

4872 

432 

887 

TOTAL 

9648 

2729 

3392 

15779 

1452 

1894 

MRR-84 

NA 

1 

1973 

2470 

10934 

960 

1097 

CASE 

NFO 

904 

1105 

4839 

414 

879 

TOTAL 

9321 

2877 

3575 

15773 

1374 

1976 

DIFFERENCE 

NA 

-237 

+  129 

+  145 

+  27 

-60 

+90 

NFO 

-  90 

+  19 

+  38 

-33 

-18 

-  8 

TOTAL 

-327 

+  148 

+  183 

-  6 

-78 

+98 

However,  this  increase  would  be  more  than  offset  by  the  reduced  accession 
training  rates  associates  with  the  MRR-8*  case.  The  higher  retention  results 
in  a  reduction  of  60  in  the  Pilot  Training  Rate  and  18  in  the  Naval  Flight 
Officer  Training  Rate.  The  annual  savings  in  military  personnel  costs  asso¬ 
ciated  with  training  at  these  lower  levels  total  6.3  M. 


A  review  of  other  model  parameters  on  a  subcommun i ty-bv-subcommun i t y  basis 
reveals  the  following: 

•  First  tour  lengths  increase  due  to  the  smaller  entry  cohort  size.  The 
change  is  about  3  months  for  Naval  Aviators  and  1  month  for  Naval 
Flight  Officers  . 

•  Command  opportunity  decreases  slightly  for  Naval  Aviators  due  to  the 
larger  number  of  Commanders.  Naval  Flight  Officer  command  opportunity 
decreases  much  less  because  the  retention  differential  between  the  two 
cases  is  smaller. 

•  ACIP  Gate  I  projections  generally  increase  by  about  2  percent  indi¬ 
cating  more  cockpit  employment  time  across  the  board. 
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Overall,  the  conclusion  is  that  increased  retention  would  significantly 
lower  costs,  and  in  addition,  provide  a  more  manageable  inventory  of  Aviation 
Officers. 

E.  A  WORD  OF  CAUTION 


The  foregoing  examples  have  been  presented  to  illustrate,  to  potential 
users  of  the  Aviation  Officer  Requirements  Model,  some  ways  in  which  the  me. del 
can  be  useful  as  a  planning  tool.  The  model  is  admittedly  complex.  It  must 
be  if  it  is  to  reasonably  represent  the  universe  with  which  the  planner  must 
cope.  Unfortunately,  complexity,  while  conferring  a  degree  of  versatility, 
also  demands  a  higher  level  of  intellectual  involvement  on  the  part  of  _ne 
user.  First  of  all,  he  must  understand  the  reality  that  the  model  represents. 
He  must  then  be  prepared  to  expend  considerable  mental  effort  in  interpreting 
model  results  in  the  context  of  that  external  reality.  In  a  word,  the  planner 
must  learn  to  use  the  tool.  The  foregoing  examples  were  presented  solely  in 
the  interest  of  facilitating  that  learning  process.  It  would  be  a  mistake  to 
attach  any  great  significance  to  the  numerical  results.  The  baseline  case 
represents  Aviation  Officer  requirements  in  1981.  A  number  of  significant 
changes  in  force  structure  and  support  concepts  have  occurred  since  then  which 
would  alter  the  numerical  results  for  the  baseline  case.  Before  attempting  to 
employ  the  model  in  the  planning  process,  the  basic  requirements  arrays  in  the 
model  should  be  respecified  to  reflect  the  current  Aviation  Officer  billet 
structure,  and  the  validity  of  certain  force  level  parameters — most  notable 
crew  factors — should  be  confirmed. 


53 


V.  APPLICATION  OF  THE  MODELING  TECHNIQUE 
TO  THE  SURFACE  WARFARE  OFFICER  COMMUNITY 


A.  INTRODUCTION 

A  natural  extension  of  the  current  effort  to  develop  and  implement  an  ana¬ 
lytical  tool  for  determining  Naval  Aviation  Officer  requirements  is  the  appli¬ 
cation  of  the  basic  modeling  technique  to  other  officer  communities.  A 
preliminary  analysis  of  the  Surface  Warfare  Officer  Community  was  conducted  to 
identify  a1".'  significant  changes  to  the  basic  model  structure  that  would  be 
required.  These  changes  are  discussed  in  this  section  in  terms  of  their 
influence  on  the  model  requirements  specification,  inventory  specification, 
and  Co  ’’.er  path  specification. 

B.  REQUIREMENTS  SPECIFICATION 

The  basic  force  element  for  Surface  Warfare  Officers  is  the  individual 
ship.  In  specifying  direct  force  level  requirements,  ships  may  be  grouped  by- 
class  to  identify  units  with  similar  officer  manpower  requirements.  Tnese 
groups  are  then  analogous  to  the  subcommunities  established  in  the  Aviation 
Officer  Requirements  Model.  In  addition,  ship  classes  may  be  grouped  into 
ship  types  ,e.g.,  DD-TYPE/DD  963-CLASS).  There  is  some  utility  inherent  in 
accomodating  both  type  and  class  in  the  requirements  structure  of  a  Surface 
Warfare  Officer  Model.  For  example,  the  user  may  desire  to  specify  force 
level  changes  in  terms  of  class  (e.g.,  add  5  DD963s)  or  type  (Add  5  DDs).  In 
the  latter  case,  model  logic  would  make  additions  to  the  latest  (highest 
numbered)  class  in  the  type  group,  while  losses  would  be  taken  from  the  oldest 
class . 

While  the  ship  class  in  the  case  of  Surface  Warfare  Officers  is  analogous 
to  aircraft  type  in  the  Aviation  Officer  Requirements  Model,  there  does  not 
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appear  to  be  any  need  to  establish  a  subcommunity  structure  for  the  Surface 
Warfare  Officer  Model.  Movement  of  Aviation  Officers  between  subcommunities 
is  in f requen t --a  fact  which  tends  to  focus  manpower  management  on  the  weapon 
system  type.  On  the  other  hand,  Surface  Warfare  Officers  move  freely  between 
classes  and  types  so  that,  while  class  and  type  are  important  to  requirements 
spec i f icat ion ,  there  is  no  need  for  independent  processing  of  subcommunities. 
Therefore,  there  would  be  no  subdivisions  of  the  Surface  Warfare  Officer  com- 
mun  ity  . 

The  Aviation  Officer  Requirements  Model  partitions  requirements  into  four 
grade  levels:  LT ,  LCDR,  CDR,  SENIOR  CDR).  Two  changes  would  be  required  in 
a  Surface  Warfare  Officer  Model. 


•  The  grade  of  Captain  (06)  would  be  added.  Aviation  Officer  require¬ 

ments,  by  definition,  include  only  Commanders  and  below.  On  the  other 
hand,  Surface  Warfare  Officer  requirements  include  the  grade  of 
Captain.  This  grade  would  replace  the  artificially-created  grade  of 

Senior  Commander. 

•  At  the  lower  end  of  the  grade  scale,  the  LT  and  below  category  would  be 

divided  to  separate  Lieutenants  from  LTJG  and  below.  Aviation  Officers 

receive  entry  level  training  in  a  separate  undergraduate  training  acti¬ 
vity  and  become  manpower  resources  upon  designation  at  the  completion 
of  that  training.  Undergraduate  training  can  thus  be  treated  as  a 
single  network  source  for  both  inventory  and  requirements  specifica¬ 
tion.  Surface  Warfare  Officers  proceed  from  initial  training  to  a 
shipboard  assignment.  However,  they  are  not  designated  Surface  Warfare 
Officers  until  an  initial  qualification  period  aboard  ship  has  been 
completed.  This  means  that  significant  numbers  of  junior  shipboard 
billets  are  filled  by  undesignated  general  line  officers.  Division  of 
the  lower  grade  requirement  will  provide  a  means  of  accounting  for  this 
phenomenon.  The  division  is  proposed  at  the  LTJG  rather  than  the 
Ensign  level  because  a  review  of  several  ship  manning  documents 
revealed  that  there  probably  were  not  enough  Ensign  billets  specified 
in  requirements  documents  to  permit  accounting  for  all  of  the  unde¬ 
signated  fills  likely  to  occur  at  normal  personnel  flows.  It  is 
recognized  that  some  allocation  rule  will  have  to  be  defined  to  segre¬ 
gate  undesignated  from  designated  Lieutenants  Junior  Grade. 


A  Surface  Warfare  Officer  Model  would  specify  requirements  at  five  grade 
leve Is  : 
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-  Lt  JG  and  Ensign 

-  Lieutenant 

-  Lieutenant  Commander 

-  Commander 

-  Captain 

C.  INVENTORY  SPECIFICATIONS 


The  fundamental  shape  of  the  officer  inventory  curve  as  a  function  of 
years  of  service  will  be  the  same  for  Surface  Warfare  Officers  as  for  Aviation 
Officers.  The  shape  will  be  specified  by  a  continuation  vector  reflecting  the 
year-to-year  changes  in  Surface  Warfare  Officer  inventory.  This  will  also  be 
linked  to  a  retention  specification.  Differences  in  detail  will  be  evident  as 
follows : 

•  The  time  axis  will  specify  years  of  commissioned  service  rather  than 
years  since  designation. 

•  Captains  will  not  leave  the  inventory.  Therefore  the  sharp  break  evi¬ 
dent  at  roughly  the  20  year  point  will  be  reduced  since  it  will  reflect 
only  early  retirements 

•  Because  of  the  inclusion  of  Captains  in  the  inventory  the  model  time 
frame  will  be  extended  to  30  years. 

•  Unrestricted  Line  Officer  (11XX)  continuation  rates  will  have  to  be 
adjusted  to  reflect  Surface  Warfare  (1110)  continuation.  Because  of 
the  nature  of  the  accession  process,  decribed  above,  a  Surface  Warfare 
continuation  vector  may  show  continuation  rates  greater  than  unity  in 
the  early  years  of  commissioned  service. 

D.  CAREER  PATH  NETWORK 


The  major  changes  in  the  career  path  network  for  Surface  Warfare  Officers 
will  be  the  extension  in  time  covered  to  a  nominal  ten  tours  and  the  redefini¬ 
tion  of  activities  represented.  The  increased  number  of  tours  results  from 
the  addition  of  Captains  to  the  inventory  at  the  senior  end  of  the  time  scale 
and  the  addition  of  pre-designation  commissioned  time  at  the  junior  end.  The 
definition  of  activities  depends  on  ana  /sis  of  Surface  Warfare  Officer  career 
paths  and  the  significance  of  career  path  considerations  as  constraints  on  the 
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manpower  planner.  The  definitions  suggested  in  this  Section  are  highly  ten¬ 
tative,  being  based  for  the  most  part  on  discussions  with  experienced  Surface 
Warfare  Officers.  It  may  well  be  that  detailed  analysis  of  the  Surface 
Warfare  Officer  Billet  Structure  and  detailing  patterns  will  suggest  alter¬ 
native  activity  definitions.  In  view  of  the  fact  that  the  Surface  Warfare 
designation  is  only  a  little  more  than  ten  years  old,  an  analysis  of  this  type 
is  an  obvious  first  step  in  the  actual  construction  of  a  model. 

The  primary  reason  for  including  career  path  constraints  in  a  requirements 
model  is  to  ensure  that  plans  based  on  that  model  account  for  the  need  to 
develop  certain  skills  and  experience  levels  in  the  inventory  over  time.  The 
specification  of  a  billet  title  and  grade  level  generally  implies  the 
existence  in  the  inventory  of  personnel  with  a  fairly  explicit  set  of  skills 
gained  in  past  assignments.  Thus,  personnel  assignment  has  two  objectives: 
the  filling  of  immediate  requirements  and  the  development  of  the  inventory  so 
that  future  requirements  can  also  be  met.  A  useful  planning  tool  must  account 
for  both  of  these  objectives. 

The  Aviation  Officer  Requirements  Model  accounted  for  ski 1 1 /exper i ence 
requirements  in  two  ways:  First,  set  of  general  background  requirements  are 
defined  by  the  seven  activity  definitions.  Second,  more  explicit  set  of  war¬ 
fare  skills  are  implicit  in  the  23  defined  subcommunities.  For  example,  a 
body  of  expertise  in  Anti-Air  Warfare  is  established  in  the  definition  of  the 
VF  (Fighter)  and  Early  Warning  (VAW)  Subcommunities.  Since  subcommunities  are 
not  envisioned  for  a  Surface  Warfare  Officer  Model,  it  was  necessary  to  accom¬ 
modate  some  specific  ski  1 1 /expe ri ence  identifiers  in  the  activity  definitions 
of  the  career  path  network. 
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Surface  ships  in  the  Navy  can  be  placed  in  one  of  three  categories 


depending  on  their  fundamental  mission.  These  are: 

-  Fleet  Combatants 

-  Amphibious  Ships 

-  Fleet  Auxiliaries 

There  are  specialized  skills  associated  with  the  operation  and  handling  of 
ships  in  each  of  these  categories.  It  is  important  that  the  Surface  Warfare 
Officer  inventory  contain  officers  with  experience  in  each  of  these  mission 
areas.  Therefore,  they  are  specified  as  separate  Surface  Warfare  Officer 
Activities  governing  both  requirements  partitioning  and  inventory  distribu¬ 
tion. 

The  three  activities  identified  above  correspond  to  the  Fleet  Squadron 
Activity  of  the  Aviation  Officer  Requirements  Model;  that  is,  Aviation 
Officers  are  primarily  needed  to  operate  fleet  aircraft  and  Surface  Warfare 

Officers  are  primarily  needed  to  operate  fleet  ships.  Subdividing  the  acti¬ 
vity  in  the  case  of  Surface  Warfare  Officers  makes  the  structure  of  the 

requirement  visible,  and  in  addition,  provides  the  opportunity  for  a  degree  of 
user  control.  In  specifying  network  arcs,  the  user  can  either  permit  or  inhi¬ 
bit  flow  between  these  activities. 

Arc  capacity  constraints  can  also  be  employed  to  limit  flows  between  acti¬ 
vities.  In  fact,  the  user  will  have  available  a  range  of  options  from  com¬ 
pletely  free  flow  between  activities  to  complete  isolation  of  activities.  The 

first  extreme  would  represent  the  way  the  Surface  Warfare  Officer  community  is 
managed,  while  the  second  would  approximate  the  subcommunity  structure  of  the 
Aviation  Officer  Requirements  Model. 

In  addition  to  ship's  company  assignments,  Surface  Warfare  Officers  are 
also  required  on  afloat  staffs.  This  Afloat  Activity  corresponds  to  the 
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Afloat  Assignments  Activity  of  the  Aviation  Officer  Requirements  Model. 


The  fifth  activity  identified  for  the  Surface  Warfare  Officer  Requirements 
Model  is  Professional  Training.  This  is  intended  to  make  visible  the  signifi¬ 
cant  training  provided  by  Surface  Warfare  Officer  schools  at  the  department 
head  and  command  level.  It  is  envisioned  that  the  model  would  implicitly 
specify  flows  to  this  activity  as  a  function  of  flows  to  shipboard  billets. 

The  remaining  two  activities  proposed  for  the  Surface  Warfare  Officer 
Requirements  Model,  Professional  Education  and  Other,  are  identical  to  those 
defined  for  the  Aviation  Officer  Requirements  Model. 

In  summary,  seven  career  activities  are  proposed  for  a  Surface  Warfare 
Officer  Requirements  Model: 

-  Fleet  Combatants 

-  Amphibious  Forces 

-  Fleet  Auxiliaries 

-  Professional  Training 

-  Afloat  Staffs 

-  Professional  Education 

-  Other 

Figure  4  is  at.  example  of  a  Surface  Warfare  Officer  career  path  network. 
The  arcs  selected  show  all  source  flow  going  to  activities  1-3  for  the  first 
tour.  These  flows  then  divide  between  Professional  Education  and  OTHER  for  a 
second  tour  which  is  assumed  to  be  ashore.  These  in  turn,  divide  for  the 
third  tour  covering  all  possible  destination  activities.  Beyond  the  third 
tour  no  attempt  is  made  to  portray  all  possible  arcs,  instead,  typical  flows 
to  shipboard  department  head  and  command  tours  are  depicted.  It  is  important 
to  note  that  the  three  year  tour  length  depicted  in  the  diagram  is  nominal. 
The  model  user  would  have  the  capability  of  specifying  the  actual  tour  length 
in  months,  for  every  model  destination  node. 
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The  analysis  of  the  Surface  Warfare  Officer  community,  while  tentative 
with  respect  to  some  fairly  important  details,  demonstrates  the  feasibility  of 
implementing  a  Surface  Warfare  Officer  Requirements  Model  that  is  func¬ 
tionally  similar  to  the  Aviation  Officer  Requirements  Model.  The  major 
changes  required  are  elimination  of  the  subcommunity  structure  and  redefini¬ 
tion  of  career  activities.  Other  changes  might  be  necessary  after  detailed 
analysis  of  the  Surface  Warfare  Officer  billet  structure,  but  based  on 
experience  with  the  Aviation  Officer  Requirements  Model,  such  changes  should 
be  minor  in  nature.  Overall,  the  model  would  be  somewhat  less  complicated 
than  the  Aviation  Officer  Model  and  require  significantly  shorter  execution 
time  on  the  computer. 
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FIGURE  4 

SURFACE  WARFARE  OFFICER  CAREER  PATH  NETWORK 


VI.  CONCLUSION 


Previous  sections  of  this  report  have  attempted  to  achieve  three  main 
goals : 

•  Describe  the  process  by  which  manpower  requirements  are  determined  in 
the  context  of  the  Planning,  Programming,  and  Budgeting  process  bv 
which  personnel  resources  are  obtained.  The  central  theme  of  that 
discussion  was  the  contrast  between  the  potential  long  term  consequen¬ 
ces  of  manpower  decisions  and  the  relatively  short  planning  horizon  of 
the  PPBS  . 

•  Describe  a  planning  tool,  the  Aviation  Officer  Requirements  Model, 
which  allows  consideration  of  both  the  long  and  short  term  consequences 
of  manpower  decisions  in  the  planning  process. 

•  Demonstrate  some  ways  in  which  the  model  can  be  applied  as  a  planning 
tool.  The  model  is  necessarily  complex.  An  understanding  of  Aviation 
Officer  manpower  requirements  on  the  part  of  the  user  is  presumed. 
However,  no  computer  expertise  is  required.  It  is  a  menu  driven,  "user 
friendly"  mode  1 . 

In  addition,  the  general  applicability  of  the  basic  modeling  technique  to 
other  officer  communities  has  been  demonstrated  by  developing  the  basic 
outline  of  a  Surface  Warfare  Officer  Requirements  Model. 

A  final  word  of  stress  on  a  point  repeatedly  made  in  this  report:  the 
Aviation  Officer  Requirement  Model  is  a  tool.  Hammers  and  saws  do  not  build 
houses,  carpenters  do;  computer  programs  do  not  make  plans,  planners  do.  Good 
planners,  like  good  carpenters,  are  distinguished  by  the  skill  with  which  they 
use  the i r  tools  . 
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APPENDIX  A 

AVIATION  OFFICER  REQUIREMENTS  MODEL 
USER'S  GUIDE 


The  objective  of  this  appendix  is  to  provide  non-ADP  person¬ 
nel  with  the  information  necessary  to  effectively  use  the 
Aviation  Officers  Requirements  Model. 

The  Aviation  Officers  Requirements  Model  provides  an  auto¬ 
mated  capability  to  effectively  deal  with  officer  requirements 
determinations  through  interactive,  user-friendly  processing. 

The  user  of  the  Aviation  Officer  Requirements  Model  must 
know  how  to  initiate  and  stop  computer  processing  as  well  as  how 
to  use  the  system  to  produce  useful  results.  This  appendix  is 
presented  in  such  a  way  as  to  walk  the  user  through  the  system 
from  start  to  finish  and  provide  an  example  to  every  screen  or 
option  possible.  Use  of  this  appendix  should  make  the  Aviation 
Officer  Requirements  Model  easy  to  operate  for  all  personnel. 
While  the  model  is  designed  for  personnel  with  limited  computer 
experience,  it  is  assumed  that  users  are  familiar  with  the 
Aviation  Officer  Requirements  Determination  process. 

On  the  next  page  of  this  appendix  is  a  picture  of  the  com¬ 
puter  keyboard  and  a  brief  explanation  of  the  user  entry  keys, 
which  are  used  for  the  majority  of  the  interactions  in  the 
Aviation  Officer  Requirements  Model.  An  explanation  of  the  cur¬ 
sor  control  keys  and  parameter  definitions  are  also  provided. 
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NOTE 


All  keys  have  the  capability  of 
being  turned  off  or  on.  When 
the  user  is  asked  to  make  a  PF 
or  "ENTER"  key  selection,  only 
those  keys  are  turned  on.  If 
an  off  key  is  pressed,  the 
workstation  alarm  will  sound  as 
a  warning  that  an  invalid  key 
was  pressed  and  another  key 
selection  should  be  made. 


II.  CURSOR  CONTROL  KEYS 
1 .  TAB  key 


2.  ARROW  keys 


III.  PARAMETERS 

1 .  Def i ned 

(on  screen) 


-  Many  screens  present  predefined 
fields  in  which  entries  can  be 
made.  By  using  the  "TAB"  key 
the  cursor  jumps  only  to  those 
predefined  fields  freeing  the 
user  from  having  to  count 
spaces . 

-  There  are  four  directions  the 

user  can  move  the  cursor:  up, 

down,  right  and  left.  These 
arrow  keys  position  the  cursor 
without  regard  for  the  presence 
of  predefined  fields.  They  can 
position  the  cursor  at  any 
location  on  the  screen  and  pro¬ 
vide  automatic  repeat  for  as 
long  as  the  key  is  pressed. 
All  keys  also  have  a  wraparound 
feature.  For  example,  if  the 
cursor  is  positioned  in  the  top 
row,  and  the  user  presses  the 
up  arrow,  the  cursor  moves  to 
the  bottom  row  in  the  same 
col  umn  . 


-  Most  parameters  are  set  ini¬ 
tially  to  default  values  (See 
default  values)  and  the  user 
can  either  change  them  to  suit 
his  purpose  or  continue  using 
those  values.  To  change  a 
parameter  value,  position  the 
cursor  (cursor  control  keys) 
under  the  variable  to  be 
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changed,  and  then  type  over  it. 
If  the  new  variable  is  smaller 
than  the  previous  variable,  use 
the  space  bar  to  delete  those 
extra  characters. 


2.  Defined 


(off  screen) 


3.  Entering 


Some  paramet  r  fields  initially 
appear  with  blanks,  and  the 
the  user  can  enter  parameter 
values  in  these  fields.  To 
make  entries,  position  the 
cursor  (via  TAB  key)  and  type 
in  the  information.  If  left 
blank,  the  model  automatically 
uses  default  values. 

Once  parameters  are  set,  the 
user  should  press  "ENTER" 
unless  otherwise  specified. 
The  cursor  position  is  unimpor¬ 
tant  with  regard  to  "ENTER", 
but  make  sure  all  parameters 
are  correct  before  entering. 
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COMMUNITY  SECTIONS  MEN’S  SCREEN 

This  screen  acts  as  the  Control  Screen.  It  permits  one  to  enter 
and  exit  the  program.  On  entry  to  the  program,  the  above  ais 
will  be  presented  on  the  work  station  screen.  Notice  the  w 
NAVAL  AVIATOR  and  LIGHT  ATTACK;  they  have  been  underlined  in 
above  picture  but  will  appear  as  flashing  words  on  the  ais 
screen.  These  words  flash  to  indicate  the  current  model  sta 
On  entering  the  program,,  all  variables  are  predefined  to  default 
values  (see  Appendix  C>. 

The  user  has  one  of  five  Run  options  to  choose  from: 

1)  Continue  working  in  the  Community  which  appears  flashing 
on  the  screen  (see  A-10)  . 

2)  Begin  working  in  a  new  Community  of  AVIATORS.  (See  A-8) 

3)  Begin  working  in  a  new  Community  of  NAVAL  FLIGHT  OFrICLRS 
( NFOs )  (see  A- 9 )  . 

4)  Make  multiple  Community  runs  (see  A-19). 

5)  End  processing  (Note  -  on  command  of  End  processing, 
which  causes  exit  from  the  program,  printed  output  from 
the  program  run  will  begin). 
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SINGLE  COMMUNITY  RUN 

The  following  pages  A-7  to  A-18  explain  and  describe  the  screens 
in  SINGLE  COMMUNITY  RUN  processing.  Figure  A-l  of  this  section 
is  a  basic  flow  diagram  showing  the  logical  sequence  of  screens 
displayed  in  SINGLE  COMMUNITY  mode.  The  remainder  of  this  sec¬ 
tion  is  devoted  to  a  detailed  description  of  each  screen  shown 
in  the  flow  diagram. 
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NAVAL  AVIATION  COMMON  I  T  i  SELECTIO  N  M y  \  y  SJkEEN 

By  pressing  the  PF-1  key  when  the  Community  Selection  Scr 
(SI)  is  displayed,  the  above  screen  (52)  will  appear.  T 
screen  allows  the  user  to  select  one  of  14  Suoco.t.-  j.o  i  1 i  es 
which  NAVAL  AVIATORS  are  required.  By  pressing  one  of  the 
Pf-keys,  the  user  will  enter  that  corresponding  Subcom.Tur.ity 
analysis.  By  pressing  the  "Enter"  key,  the  user  will  return 
the  Community  Selection  Screen  (51)  without  alterinq  the  curr 
subcommunity  selection. 
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NAVAL  FLIGHT  OFFICER  (  N  F  0  ]_  C  ONMVMTV  ShLEC  Tj,  0  N  SCKEEN 

If  the  user  selected  the  PF-2  key  while  the  Community  Select 
Screen  (SI)  appeared,  the  above  screen  will  be  displayed.  T 
screen  allows  the  user  to  select  one  of  the  nine  S ubcc.r.T  ur.  1 1 
in  which  NFOs  are  required.  By  pressing  one  of  the  n 
PF-keys,  the  user  will  enter  the  corresponding  Subccntr.  uni  ty 
analysis.  If  the  user  wishes  to  return  to  the  Corr.rr.  ur. 
Selection  Screen  (SI),  press  the  ”LNTc,k"  key. 

-  NOTE  - 


When  returning  to  tne  Community  Selection  Screen  (Si)  ,  tie 
ir,  unity  and  Sub comm  un  i  ty ,  whicn  appear  flashing ,  indicate 


current  area  for  analysis. 
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COM'-i'JN  I  TV  VESTS  I  CATION  AND  RUN  OPTIONS 

Screen  54  (above)  identifies  the  Subconr.xur.ity  the  model  i 
currently  concerned  with  and  allows  the  user  to  select  ru 
options.  IN-PROCESS  MONITORING  allows  the  user  to  see  inter 
mediate  results  between  iterations.  The  user  may  also  run  tr. 
system  with  minimal  interaction  by  typing  "NO"  in  place  of  "YES 
for  IN-PROCESS  MONITORING. 

UPWARD  DETAILING  allows  the  system  to  assign  officers  to  require 
ments  of  the  next  higher  grade  when  all  requirements  at  tr 
current  grade  level  have  been  met.  If  the  user  doesn't  war. 
Upward  Detailing,  type  "NO"  in  place  of  "YES". 


-NOTE- 

If  the  user  initially  entered  "YES"  for  IN-PROCESS  MONITORING 
he  will  later  have  the  option  to  change  this  status  after  ev-.  : 
complete  iteration. 
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PARAMETER  CATEGORY  MENU  SCREEN’ 


This  screen  appears  after  screen  S5  and  screens  53-S13. 
allows  the  user  to  enter  each  of  the  five  parameter  categories 
order  to  inspect  and/or  change  existing  parameters.  To  insp 
any  parameter  category,  select  the  corresponding  PF-key. 
user  may  also  return  to  the  Community  Selection  Menu  Screen  ( 
by  pressing  the  PF-16  key.  if  the  user  wishes  to  bypass 
parameter  review  he  may  do  so  by  pressing  the  "ENTER"  key. 
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BAS  IC  COM:-".'!  N  I  I  x  DATA  S  CHESS  (  PARAXE  TLB.  REVIEW  ) 

This  screen  displays  the  current  value  of  basic  parameters  f  cr 
the  subcommum  ty  being  processed.  Tne  user  may  change  one,  ncr.e  , 
or  all  existing  parameters.  Tne  user  should  be  aware  that 
changes  to  the  parameters  CREW  FACTOR  and  NAVAL  AVIATORS  PE.m  CRE*, 
will  affect  only  the  number  of  Lieutenants  per  squadron.  Tne 
Commander  and  Lieutenant  Commander  parameters  will  remain 
unchanged.  If  Commander/Li eutenant  Commander  parameters  are 
changed  tne  adjustment  of  Lieutenant  parameters  is  automatic  and 
squadron  grade  distribution  will  conform  to  user  specification. 
In  order  to  record  any  changes  and  continue  with  the  program, 
press  "Enter".  Upon  doing  so,  the  program  will  return  to  Screen 
S5  (Parameter  Category  Menu)  allowing  the  user  tc  make  furtner 
changes  or  bypass  the  parameter  review. 
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TRAINING  RE  «.  II  A.  EMEN  I  S  DATA  SC  n  ELS  (  FA.-.AXK :  ER  R:  V  I  El  a  ' 

This  screen  displays  t.he  current  val.oj  of  th*--  pa  r  an  -  t  e  r  s  w; 

TRAINING  RETIREMENTS  DATA.  The  us-,  r  may  chung-  one-,  note- 

all  existing  parameters  to  meet  the  n^c-'-ssa  ry  reu-ir-o  n.ts. 
user  should  be  aware  that  the  number  of  Lieutenants  for  u.o 
graduate  training  is  determined  by  the  Instructor  Flan 
Factors  (Instructor  Pilots  per  Grad  uates ,  Instructor  NF  os: 

Graduate).  In  order  to  record  any  changes  and  continue  wi  th 
program,  press  "Enter".  Upon  doing  so,  the  program,  will  re 
to  Screen  So  allowing  the  user  to  make  further  chanu-.  s  c:  by 
the  parameter  review. 


A-l  3 


PROMOTION  FLOW/POLICY  VARIABLES  SCREES  (PARAMETER  REVIEW ) 

This  screen  allows  the  user  to  change  both  Promotion  Flow  Points 
and  Policy  Variables.  The  Promotion  Flow  Points  section  of  this 
screen  is  a  bargraph  representing  years  of  c>-nmi  s  s  i  oned  service. 
Up-arrows  under  the  yraph  show  the  promotion  flow  points  to  the 
grades  of  Lieutenant  Commander  and  Commander  (4  for  LCDR,  5  for 
CDR).  To  change  promotion  flow  points,  position  the  cv  .or  under 
the  desired  number  of  years  and  enter  the  appropriate  number  (4 
or  5).  (Note  that  entries  made  with  years  consisting  of  two 
digits  (i.e.,  10),  the  number  (4  or  5)  may  be  placed  under  either 
digit.)  Half  year  promotion  flow  points  (i.e.,  10.5  years)  may 
be  selected  by  positioning  the  entry  under  the  asterisk  between 
numbers.  Also  note  that  both  entries  (4  &  5)  must  be  made  if  any 
change  is  made.  If  either  entry  is  left  out,  the  resulting  pro¬ 
motion  flow  point  parameters  will  be  inaccurate. 

The  Policy  Variables  section  of  this  screen  allows  the  user  to 
enter  different  policy  alternatives.  PLOWBACK  INSTRUCTORS  are  t:u 
fraction  of  training  command  graduates  assigned  immediately  as 
instructors  in  undergraduate  training.  POSTGRADUATE  FLO a  is  the 
fraction  of  the  12  year  cohorts  with  a  graduate  level  education. 
WAR  COLLEGE  FLOW  is  the  fraction  of  18  year  cohorts  with  a  war 
college  education  To  record  changes  and  redisplay  variables 
press  PF-1 .  To  record  changes  and  continue  press  "ENTER". 
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ALLOCATION  PARAMETERS  SCKrEN  (PARAMETER  RE/IEa? 

,■  h  i  s  screen  displays  the  ALLOCATION  PARAMETERS  which  the  mod-:  I 
wiH_  use  in  assigning  fractions  of  general  Aviation  Officer 
requirements  to  the  Subcommunity  under  investigation.  Tne  user 
should  note  that  a  change  to  any  allocation  fraction  will  cause 
an  automatic  adjustment  in  fractions  for  all  other  Subrc.r- 
munities .  (Note  that  the  sum  of  allocation  fractions  across  all 
affected  subccmmun  i  t  i  es  equals  one.)  Tne  "ENTER"  key  caus'-s 
charges  to  be  recorded  and  adjustments  to  be  made.  Ccr.trol  is 
returned  to  screen  S 5. 
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CAREER  PATH  NETaORK  SCREEN  <t  I  (PARAMETER  REVIEW ) 

This  screen  displays  nodes  for  the  Career  Path  Network.  The 
can  inspect  and/or  modify  the  characteristics  associated  with  an" 
node.  To  inspect/modify  a  node,  replace  any  "o"  with  an  "x"  in 
tne  'tour  number'  table  and  press  "ENTER".  Note  that  the  user 
™ay  S®,lect  as  many  nodes  for  inspection/modification  as  desired. 

e  TrtE  key  will  step  the  cursor  from  node  to  node  in  the 
display.  The  control  of  the  program  continues  with  screen  Sil  if 
a  node, nodes  are  to  be  inspected/modified.  Otherwise  the  cor^rcl 
returns  to  Screen  35. 
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CAREER  PATH  NETWORK  SCREEN  #2  (  PARAMETER  REVIE.n  ) 

This  screen  reconfirms  the  activity  and  tour  number  that  the  user 
has  chosen  to  inspect/modify.  At  this  point,  the  user  may  cnar. 
the  value  of  the  tour  length  for  tours  ending  at  that  node, 
may  also  make  available  any  of  the  seven  pecedent  nodes.  Once 
the  user  has  made  desired  changes  and  is  ready  to  record  these 
changes,  he  must  depress  "ENTER".  This  screen  will  appear  for 
each  x  that  the  user  placed  into  the  table  on  tne  previous  screen 
(S10).  Once  all  x’s  have  been  inspected/modified,  the  program 
will  return  the  user  to  the  Parameter  Category  Menu  Screen  (S3) . 
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If  the  user  had  previously  requested  a  change  in  retention  (.Si), 
the  above  screen  will  be  displayed.  A  change  in  retention  will 
cause  the  Continuation  Vector  to  change.  This  screen  shows  tr.e 
four  parameters  that  determine  the  Continuation  Vector  and  offers 
the  user  the  opportunity  to  change  those  parameters  or  continue 
the  process. 

-NOTE- 

Th  i  s  is  the  last  screen  before  the  program  iterations  start.  1c 
follow  execution  and  processing  sequence  turn  to  page  A-33. 
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MULTIPLE  COMMUNITY  RUN 

The  following  pages  A-20  to  A-32  explain  and  describe  the  screens 
in  MULTIPLE  COMMUNITY  processing.  Figure  A- 2  on  the  following 
page  is  a  basic  flow  diagram  showing  the  logical  sequence  of 
screens  displayed  in  MULTIPLE  RUN  mode.  The  remainder  of  this 
section  is  devoted  to  a  detailed  description  of  each  screen  in 
the  flow  diagram. 
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NAVAL  AVIATOR  COMMUNITY  SELECTION  (MULTIPLE  RUNS ) 

By  pressing  the  PF-3  key  while  the  Community  Selection  Scree 
(SI)  is  displayed,  the  model  adapts  for  multiple  runs  and  show 
the  above  screen.  Tnis  screen  allows  tne  user  to  grou 

Subcommunities  with  similar  characteristics.  This  is  done  b 
assigning  the  same  alpha-character  (group  identifier)  to  all  Sub 
communities  that  will  be  included  in  a  given  group.  To  eliminat 
a  Subcommunity  from  the  run,  put  a  "0"  (ZERO)  in  the  corres 
group  column.  If  Subcommunities  are  left  blank  (i.e., 
the  model  will  assign  that  Subcommunity  by  default  values.  T 
continue  with  NFO  SUBCOMMUNITIES,  press  "ENTER"  (see  next  page). 
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NFJ'S  COMMON I  IV  SELECTIONS  (MULTIPLE  RUNS) 

When  "ENTER"  is  pressed  while  the  NAVAL  AVIATOR  COMMON 1 1 £ 
SELECTIONS  (multiple  runs)  screen  (S4)  is  displayed,  tne  model 
continues  with  NFOs  Community  Selections  (multiple  runs).  This 
allows  the  user  to  create  Subcommunities  as  on  the  previous  page 
( A- 2 i 5 .  If  the  user  wishes  to  return  to  the  Community  Selection 
Menu  Screen  (SI),  press  PF-16.  Otnerwise,  press  "ENTER"  to  con¬ 
tinue. 

(Note  -  if  the  user  uses  the  same  group  identifier  for  botn 
PILOTS  AND  NFO's  they  will  be  assigned  to  the  same  group.) 
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COMM J NIT*  VERIFICATION  AND  R'JN  OPTIONS  (MULTIPLE  R'J  N ) 

This  screen  is  functionally  identical  to  screen  S4  in  single  r_r. 
mode  ( see  A-10  ) . 

*  NOTE* 

The  following  multiple  run  screens  S4M-S12M  are  functionally 
identical  to  screens  S4-S12  in  SINGLE  R'JN  mode.  In  MULTIPLE  RJN 
mode,  however,  these  screens  will  display  a  group  identifier  i  r. 
the  top  right  corner.  The  group  identifier  indicates  that  the 
model  is  in  the  MULTIPLE  RUN  mode  and  identifies  the  grcu: 
currently  being  processed. 
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PARAMETER  CATEGORi’  MENU  SCREEN  (MULTIPLE  RUN) 


This  screen  appears  only  if  the  user  selected  the  PF-1  utility 
when  screen  S10M  was  displayed.  Tnis  screen  permits  the  user  to 
reinspect  a  parameter  category  for  the  current  group  identifier. 
Note  that  screens  which  have  been  bypassed  can  not  be  redisplayed 
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BASIC  COMM  UN’  ITi  DATA  SCREEN  (MULTIPLE  RUN) 


This  screen  is  functionally  identical  to  screen  S6  in  SINGLE  R 
mod e  ( see  A-l 2 )  . 

*  NOT E* 

Screens  S6M-311.M  will  appear  automatically  in  the  sequence  shew 
Some  of  tnc  screens  have  a  PF-10  utility  which  allows  the  user 
bypass  all  subsequent  screens  in  that  parameter  category  for  t 
entire  group.  Screens  without  this  utility  will  be  bypass 
automatically.  Screen  S8M  and  SiOM  have  a  FF-1  utility  w. ; 
allows  the  redisplay  of  prior  screens. 
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TRAINING  RETIREMENTS  DATA  S GREEN  (MULTIPLE  RUN) 


This  screen  is  f  jr.ct  ion  a  1  ly  identical  to  screen  S7  in  SINGLE 
code  (Gee  A- 13). 
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MICROCOPY  RESOLUTION  TEST  CHART 
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ALLOCATION  PARAMETERS  SCREEN  (MULTIPLE  RUN) 

This  screen  is  functionally  identical  to  screen  S9  in  SINGLE  RJN 
mode  ( See  A-15 ) . 
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CAREER  PATH  NETWORK  SCREEN  #1  (MULTIPLE  RUN) 

This  screen  is  functionally  identical  to  screen  S10  in  SINGLE  RJN 
mode  ( See  A-16 ) . 
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CAREER  PATH  NETaORK  SCREEN 
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RETENTION  SCREEN  {MULTIPLE  RUN) 

This  screen  is  functionally  identical  to  screen  S12  in  SINGLE  RUN 
mode  (See  A-18). 
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GROUP  AND  SUBCOMMUNITIES  COMPLETED  SCREEN  (MULTIPLE  RUN) 

This  screen  is  an  advisory  screen  which  is  displayed  automati¬ 
cally  when  a  group  is  completed.  It  shows  the  group  identifier 
and  all  the  Subcommunities  included  under  that  group.  The  user 
can  continue  the  parameter  inspection/modification  process  by 
pressing  "ENTER",  or  by  pressing  PF-16  he  may  reinitiate  the 
group  selection  process. 

-  NOTE  - 

Execution  will  begin  once  all  groups  have  completed  the  parameter 
inspection/modification  process. 
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EXECUTION  AND  PROCESSING  SEQUENCE 


The  following  pages  A-34  to  A-43  explain  and  describe  the  screens 
during  processing  modes.  The  figure  A-3  on  the  following  page, 
is  a  basic  flow  diagram  showing  the  logical  sequence  of  screens 
displayed  during  processing.  The  remainder  of  this  section  is 
devoted  to  a  detailed  description  of  each  screen  in  the  flow 
diagram. 
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EXECUTION  SCREEN  (NO  IN-PROCESS  MONITORING) 

This  is  an  advisory  screen  which  appears  during  program  execution 
(without  IN-PROCESS  MONITORING)  displaying  the  current  Community, 
Subcommunity,  time,  and  current  iteration  information. 
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EXECUTION  SCREEN  (IN-PROCESS  MONITORING) 

This  screen  is  an  advisory  screen  which  appears  during  progra.r 
execution.  IN-PROCESS  MONITORING  mode  allows  the  user  to  step 
and  check  the  data  at  one  or  all  stop-check  points.  To  inspect 
data  at  check  points,  press  PF-14  (see  next  page). 
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OUTPUT  MENUS  SCREEN  (IN-PROCESS  MONITORING) 
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This  screen  is  displayed  at  each  stop-check  point 
pressed  PF-14  when  screen  S16  was  displayed, 
displayed  when  returning  from  an  output  option  (screens 
This  screen  shows  the  extent  to  which  the  requirements 
filled  thus  far.  The  user  may  chose  to  look  at  any  of 
put  options  by  pressing  a  PF-key.  The  next  five  page 
appendix  describe  the  output  options.  To  print  this 
any  of  the  IN-PROCESS  MONITORING  screens,  press 
particular  screen  is  displayed. 
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NODE  FLOW  OUTPUT  SCREENS  (IN- PROCESS  MONITORING) 
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This  screen  appears  when  the  PF-1  key 
Options  screen  SI7.  It  displays  the 
the  annual  flows  of  officers)  out  of 
path  network.  To  print  this  screen, 
the  Output  Menu  Screen  (S17) 
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INVENTORY  DISPLAY  OUTPUT  SCREEN  *1  (IN-PROCESS  MONITORING) 

This  display  appears  when  the  PF-2  key  is  pressed  when  the  Out¬ 
put  Menu  screen  appears.  Inventory  consists  of  two  screens.  T.ne 
first  inventory  screen  allows  the  user  ^o  select  up  to  4  years 
for  which  he  would  like  to  see  the  inventory.  This  is  done  fay 
typing  in  the  years  (between  1  and  30)  for  output.  To  see  the 
requested  years  output,  press  PF-1.  Press  PF-2  to  return  to  tne 
Output  Menu  screen.  Press  PF-11  to  p^int  this  screen. 
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INVENTORY  DISPLAY  OUTPUT  SCREEN  #2  (IN-PROCESS  MONITORING) 

If  the  PF-1  key  is  pressed  when  screen  S19  is  displayed,  tn 
second  inventory  output  screen  (above)  will  appear.  This  scree 
displays  the  breakdown  for  each  activity  the  years  the  user  ha 
requested.  To  print  this  screen,  press  Pf-11.  In  order  to  retur 
to  the  Output  Menu  screen  (S17),  press  "ENTER”. 
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REQUIREMENTS  DISPLAY  OUTPUT  SCREEN  (IN-PROCESS  MONITORING) 


This  display  appears  when  the  PF-3  key  is  pressed  while  the 
Output  Menu  screen  appears.  It  shows  the  requirements  remainm 
be  filled  for  each  grade  in  each  activity  at  the  current  poin 
—  To  print  this  screen,  press  PF-11.  To  get  back  t 

press  "ENTER". 
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EXCESS  FLOW  SCREEN  (IN-PROCESS  MONITORING) 


If  PF-4  was  pressed  when  screen 
screen  would  appear.  It  shows  the 
the  model  could  not  assign  up  to 
print  tnis  screen,  press  PF-11. 
Output  Menu  screen  S17. 


S17  was  displayed,  the  afccve 
excess  flows  out  of  nodes  that 
this  point  in  processing.  Tc 
Press  "ENTER"  to  return  to  the 
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This  screen  is  displayed  automatically  when  the  solution  criteria 
for  the  model  is  set.  It  displays  the  final  results  of  model 
processing.  This  screen  also  allows  the  user  to  discontinue  one 
IN-PROCESS  MONITORING  by  typing  "NO”  over  "YES"  for  IN-PROCESS 
MONITORING.  To  suppress  printing  these  results,  press  PF-1 .  To 
continue  processing  and  print  these  results,  press  "ENTER". 
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APPENDIX  B 
PROGRAM  LISTING 

This  appendix  provides  the  program  and  subroutine  listing.  After 
each  listing  is  the  basic  cross-reference  for  variables,  arrays, 
and  labels. 


20  *  « 

30  *  AVIATION  OrriCFR  REQUIREMENTS  WIDD.  * 

40  *  VERSION  7, t  * 

50  *  « 

SO  *  « 


70  *  MULTIPLE  RUNS  (0KIF.15  LIM<rO  TO  OKIEll)* 

30  /* 

100 

110  MODEL  DESCRIPTION 

120 

130  THE  AVIATION  OTTIOT  REQI.IT REMEWTE  lOT!  IS  A  STFAOV  STATE, 

140  DETERMINISTIC*  SI  MUI  AT I ON  OF  THE  OFFICER  CAREER  PATH  FLOWS  FOP 
ISO  THfl  AVIATION  OFFICER  COMMIT  I  TV  CT  THE  NAVY.  THE  SFT  Pr  Al.l 
ICO  AVIATION  OFFICER  FILLETS  (131X/532X)  IS  PAPTIT TO'  TO  INTO  TWENTY 
170  THREE  SIJRCOMMUN  J TIES  <E,C,  FIGHTER  AVIATOR,  MARITIME  PATROL  IFOL 
180  A  CAREER  PATH  NETWORK  IP  SPECIFIED  FOR  EACH  SUPCOMMUN TTY  WHICH 
190  CLASSIFIES  SUP  COMMON  I TY  REQUIREMENTS  IN  TERMS  OE  TOUR  W!JMnrR  AN'S 
200  ACTIVITY,  ACTIVITIES  ARE  DESCRIPTIVE  CATrCOR TES  Wt  ITCH  BROADLY 
210  CHARACTERIZE  THE  DUTIES  TO  WHICH  AVIATION  OmCFRE  ARE  ASSICWEEL 
220  THUS  A  SET  OF  AO  ACTIVITY/TOUR  NUMPER  STATES  ARE  CREATED  FOR  EACH 
230  SUBCOMMIJNTTY.  IN  ADDITION,  THE  MODEL  SPrCIFIES  TRANSITION  RULES 
240  BY  WHICH  THE  MOVEMENT  Or  OFFICERS  D  FT  WEEN  STATES  ARE  GOVERNED. 

250 

260  THE  MODEL  IS  WRITTEN  IN  WAIvIC  VS  PASTE  FOR  THE  WANE  2200VS 

270  COMPUTER,  HOWEVER,  THE  MODEL  IS  ' USER  FRIENDI  Y '  IN  THAT,  HAVTNC 
280  LOGGED  ON  AT  A  TERMINAL  AND  CALLED  THE  PROCRAM  l  I STEP  Bri  ON.  THE 
200  REMAINDER  OF  THE  SESSION  IS  INTERACT! VEL Y  CUED  ID  I  FAD  Tl-T  USER 
300  THROUGH  SEt  ECTION  Or  RUN  ALTERNATIVES,  SETTING  OF  MG  DEL.  PARAMETERS 
310  AND  SELECTION  Or  OUTPUTS.  THE  I.IEFR  CAN  ALTER  ANY  (OR  ALL)  OE  20 
320  MODEL  PARAMETERS  FOR  A  GIVEN  SUP- COMMON  TTY  RUN.  THE.  MODE!  IS  PPr 
330  LOA.DED  WITH  DEFAULT  VAUJES  FOR  ALL  PARAMETERS.  THREE  REPRESENT 
340  CURRENT  NAVY  PRACTICE,  IE  THE  USER  DOFS  NOT  CHANGE  A  PARAMETER 
3 SO  DURING  SET  UP,  THE  DEFAULT  VALUE  IS  USED,  THE  USER  ALSO  HAS  THE 
360  OPTION  OF  MAKING  SINGLE  SUDCOMMUNITY  RUNS  OR  MULTIPLE  RUNS  COVER ■ 
370  ING  ANY  MJMDER  OF  SUCCOMMUNITIES  IN  A  SINGLE  SET  IP, 

380 

300  THE  PROGRAM  LISTING  HAS  BEEN  BROKEN  DOWN  INTO  SEGMENTS  WHICH 

400  PRESENT  THE  MAJOR  FUNCTIONS  PEREORMUJ  IN  LOGICAL  SEQUENCE, 


410 

420 

SECTION 

CONTENTS 

430 

440 

I 

DEFAULT  DATA  AND  PROGRAM  INITIALIZATION 

450 

II 

INTERACTIVE  ENTRY /REENTRY  ROUTINES 

4G0 

III 

MULTIPLE  RUN  SET  UP  ROUTINES 

470 

IV 

REQUIREMENTS  COMPUTATION 

480 

V 

NETWORK  SOI  UT  ION  ROUTINES 

490 

VI 

ITERATION  CHECK  RRJT I KPS 

500 

VII 

SUBROUTINES 

510 

520 

NOTE:  OUTPUT 

LISTINGS.  ARE  GENERATED  IN  AN  EXTERNAL  SHERD!  IT T Nr 

530 

CAL  LED 

'OFFERIN'  WHICH  IS  NOT  PART  OF  THIS  LISTING. 

SECTION  IS  DEFAULT  DATA  AND  INITIALIZATION 


550 

5€0 

570 

5B0 

590 

600 

610 

620 

6.30 

640 

650 

€00 

670 

680 


COM  D0<7,4),  INVT(9,31 >,  A*225P5,P6,I.ABEL*<9)25,TYPE*(  14)30.  Gil  ,T*5 
COM  D*8,DB(B),S1  <  15,5),P0<  10>  ,Ra?,  D3(  4  > ,  I4<7, 7) ,  T6<20) ,  TB(20> ,  T  11 
COM  PI* < 9)  130,  X4*.l  30,  X5*l 30, FD*70,  C*70, T1 5<  20 ) ,  07 ( 7,  7  > ,  TCO < 7,  5 ) ,  P9 
COM  Al<15,9),E*130,T9*(7,7>26,Zl*3,  74*3.  037(8.  4) ,  OUTA<  P) ,  R0<  30) 
COM  X*70,  PRD4 ,  PROD,  ACC  i  ,  MGR0UPV30 >  TOT  (8,3),  TOT  A  ( B ,  3 )  ,  70TN  <  B .  3 ) 

COM  PTR ( 14) , TRA*(7>25, 076, 085(5), G89<  5) , 075<  5) , 073(5) , 074 
DIM  N0<7)  ,77(20)  ,C0<  15,  1  3) ,  DTH(  3,  P  ) ,  1NVT0<  .3.1  > ,T6(20) ,  141  (7,7) 

DIM  AUX  <  1 5,  6 ) ,  04  ( 7,  4  > ,  038  ( 7  ) ,  POD  IT*  (  5 )  64,  T  1  O* <  7 , 7 )  26,  T  22  <  50 ) 

DIM  T17<20)  ,T18<50)  ,A50(7) ,  II  1*(  15)06-,  72*3,  7 3*3,  T 1 3  <  7  > ,  T  2 1  (7) 

DIM  N9*< 7, 7)  1 , G4*7, ROI  CTF*7, 05*1 , P2* (  10)30.  I40<7,'7> ,  PRn2*05,  FA)  (r  > 
DIM  CR0IJP*30,TGR0UP*30,RGR0LF*36>CPmG0,R2(7,7> 

DIM  I42<7,7),M*2,  1*2,  0*1*40,  COM  1*30 

*  ■* 


690 

700 

710 

720 

730 

740 

750 

7€D 

770 

7B0 

790 

800 

810 

820 

830 

B40 

850 

860 

870 

8B0 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

10.30 


•» 

THIS  FIRST  SECTION  OF  THE  PROGRAM  DEFINES 

■n 

Mr 

AND  L  OADS  THE  DASIC  MATRICES  RO.  GO,  6.1 ,  A! 

* 

«# 

TCO  AND  T9* 

Mr 

REM  CONTINUATION  MATRIX 

JMP 106*. DATA  5,2, 4, 8,  1,6,4 

/*5TRI  ICTI IEE-*-/ 

DATA  , 986 , . 676 , , 924 , ,380, . BOB , .  652 . 0 

REM  GRADE  MATRIX  GO 

REM  50  FILOT/NTDr  FRO  PILOT/NTO  05.  04.03 

/*val  urr/-/ 

DATA 

2, 4,11, 0, 0, 0,8,23, 85,0,0, 0, 24 

/*VAI.*/ 

DATA 

1,2,  11,  1,2,  lit, P, 23,  137,4,  15,77,24 

/*vr  / 

DATA 

1,2,  13,  1,2,  13,2,5,44,2,6,31, 12 

/*VAM-«-  / 

DATA 

.1 , 2,  7,  .1 , 2,  .12,2,  6,  34,  2,  5,  33.  1 2 

/*VAW-'-  / 

DATA 

1 , 2,  3,  1 , 3,  .14,  .1 , 3,  38,  .1 , 3,  76,3 

/*vao*  / 

DATA 

1,3,  16,  1 , 3,  15,  1,8.  47,  1 , 5,24.  1 1 

,/*V6  *-  / 

DATA 

2,4,  14,0,  0,0,4,  .17,57,0,0,0,  11 

/ 

DATA 

1 , 3,  34,  .1 , 3,  19,  2,  .15,  76,  2,  9,  53,  24 

/*VP- «L/ 

DATA 

2,4,  14,0,0,0,4,  17,  51 ,0,0, 0,6 

/*HSL )*/ 

DATA 

2,  17,41,0,0,6,2,  13,  33,0,0,  0,8 

/*H6l.  2<-/ 

DATA 

0,  0,  0,  0,  0,  0,  0,  O,  0,  0,  0,  0,  4 

/*V0  «/ 

DATA 

0,  O,  O,  0,  0,  O,  O,  O,  0,  0,  0,0,13 

/*F6.l  ■*•/ 

DATA 

Oy  0,  Oj  Oj  Oj,  Oy  Oy  Oy  0*  Oj  0;,  0*  F? 

/*rsr  *./ 

DATA 

0,  Oj  Oj  Oj,  Oj,  Oj,  Oj  Oj  Oj,  Oj,  0*  Or,  ^ 

/*rsH  */ 

DATA  1,3,  1,0,  0,0,0,  0, 0,0,0,  0,  12 

REM  SG'.MDRON  MATRIX  61 

REM  NO  60.  A/C  / SO,  CREW  FACT,  P  JI..OT/CREW,  Nm/CREW 

/*WINC*/ 

DATA 

24, 12, 1.42, 1,0 

/*VAI.  *  ■' 

DATA 

24, 12, 1.17,1,1 

/  *VF  *>/ 

DATA 

12,  14,  1.  .14,  1,  1 

/*VAM* / 

DATA 

12,  .9,  1 . 66,  2,  7 

/♦VAN"/ 

DATA 

9,  4,  .1 . 5,  1 , 3 

/*VAR*/ 

DATA 

11,9,1.44,  1.5,  1.5 

/*V6  *■/ 

DATA 

11,6, 1.66,2,0 

/*HS  */ 

DATA 

24,9,1.33,  3,2 

/*VP  «/ 

V 


‘SECTION  I:  DEFAULT  DATA  AND  INITIALIZATION 

'.1040  DATA  0,11,2,2,0 

1050  DATA  B,  15,2,2,0 

liOCO  DATA  4, 0,0, 0,0 

Il070  DATA  13,0,0,0,0 

1080  DATA  2,0,  0,0,0 

,1090  DATA  B,  0,0,  0,0 

[1100  DATA  12,0,0,0,0 

1110  REN  ALLOCATION  MATRIX  A! 


1120 
1 1 30 
1140 
1150 
iieo 
1170 
11B0 
1190 
1200 
1210 
1220 
12  30 
1240 
1250 
1200 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1300 
1370 
1 3B0 
1330 
1400 
1410 
1420 
1430 
1440 
1450 
1400 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


REM  PILOT  PIPE,  NTD  PIPE,  PILOTS-  ALL  ,  COMMUNITY,  CVr  NTD 
C0MML1NI  TV,  CV,  ALL. 

DATA  1 , O, , 1 OC  R, , 2090, , 2030,  0, O,  O, , 0723 

DATA  1,4,  ,0538,  ,2.110,  ,2.110,  .  1737,  1.0,  .  310.1,  ,  .1148 

DATA  1,5,, 0475, , 1 195, , 1 135, ,1011,, 3103, . 1744, . 0045 

DATA.  2,  O,  ,  031 1 ,  ,  1045,  ,  0783,  ,  0323,  .1 ,  ,  1004,  ,  0507 

DATA  1,5,  ,0197,  ,0430,  .0430,  ,0905,  .3013,  .  1005.  .0445 

DATA  1, 5,  .0508,  ,  1273,  .  1273,  ,  1092,  ,  3419,  .  1885!.  ,  0034 

DATA  3,0, ,0575, , 1883, . 1447,0,0,0, ,0398 

DATA  2,7,  ,28.10,  ,7424,0,  ,3047,  ,7478,0,  ,2478 

DATA  3, O, . 0088, , 8058, 0,0,0, O, ■ 0429 

DATA.  3,0,  ,  1541,  ,  3733,0,0,0,0,  .0779 

DATA  2,7,  ,0337, , 15  32,0, .0833, ,2105,0, ,0510 

DATA  1 , 5,  .  0880,  ,  88.30, 0,  ,0188,  .  0339'  0,  .  0085 

DATA  8,7,  ,0153,  ,0393,0,  ,0148,  ,0303,0.'  .  05  88 

DATA  3,0, .0708, ,8319,0,0,0,0, ,0483 

DATA  1,1,.  3378,  O,  1 .  o'  ,  5794,  O,  1 . 0,  ,  4550 

REM  AIJX  ILL  I  ARY  MATRIX  AIJX 

REM  PILOT /NED  TOTALS  ••  05,04,03 

DATA  0,18,18,0,0,0 

DATA  0,0,  0,0,  4, 8 

DATA  0,4,  0,0,  8,0 

DATA  0,8,  8,  0,8,0 

DATA  2,4,81, 1,5,89 

DATA  0,0,0.,  0,0,0 

DATA  2,10,4,0,0,0 

DATA  0,50,0,0,17,27 

DATA  0,0,  0,0,  0,0 

DATA  0,0, 0,0, 0,0 

DATA  4,20,  .117,  3,  18,  140 

DATA  25 , 90 , 847 , 0,10 , 47 

DATA  2,  10,  38,  8,'  4.  83 ' 

DATA  1 0,  05,  870,  0,0,0 

DATA  0,0,  0,0,  0,0 

REM  TRAINING  COMMAND  MATRIX  TCO 

REM  .1 ,  P ,  H ,  R  TO ,  TN,  ATD5 ,  NAV . 

REM  I/D  RATIO,  05,  04,  IP,  INFO 
DATA  1.405,82,44, ' 800 , O 
DATA  1.231 ,7,  14,  '  443,0 
DATA  1.347,7,  14,.  548,0 
DATA  1 . 791 , 1 , 8, , 1 BO, . 255 
DATA  1 . 77.1 ,  1 , 2,  .  .1 1 8,  ,  1 50 


/*HSL1*/ 
/*U3L  84/ 
/♦VO  ♦/ 
/♦FSJ  ♦  / 
/♦FSP  ♦/ 
/*F5H  ♦/ 
/♦WING*/ 

-  ALL, 


/♦VAL*/ 
/♦vr  *-/ 
/♦VAM*  / 
/*VAW*  / 
/*VAR4  / 
/♦VS  ♦  / 
/♦HS  ♦/ 
/*VP  ♦  / 
./*I0.97 
/♦HDi.r*/ 
/♦vo  4/ 

/♦FS.T*/ 

/*FSP4/ 

/*FCH4/ 

/♦WINC4/ 


/♦ALIX  VA*/ 

/  *  AIJX  VF  ♦  / 
/♦AIJX  VAM-/ 
/*AUX  VAN-’-  ' 
/♦AUX  VA O*/ 
/♦AUX  vr.-t-  / 
/♦AUX  HS4/ 

/  4  AIJX  VP4/ 
/4AUX  HOI.  .14/ 
/*AU>:  1-0.24/ 
/♦AUX  VO  4/ 
/♦AUX  F5.T4/ 
/4 AUX  FSP*/ 
/♦AUX  FSI-14  / 

/ 4 AIJX  WT NO / 


/♦TFT*  / 
/♦PROP 4/ 
/*UEL 04/ 
/*R I O  «/ 
/*TN  4/ 


'•  ■* 


B-3 


SECTION  I:  DEFAULT  DATA  AND  INITIAL  1 7 AT I ON 


I 540  DATA  1.5P3, 1,E, ,070, ,073 
1 550  DATA  1 . 4P6,  .1 ,  ,  030,  ,  ORB 

X 560  REM  POLICY  VECTOR 

1 570  REM  PLOWPACK  5  PC ,  WARCOl.l.FCE .  04 ,04),  05,  06 .  DOP4 .  DOP5 
X  580  DATA  .  05,  ,  30, ,  50,  ,  85,  ,  #30,  ,  70,  .  60,  X  ,  1 ,  I 
.1590  REM  RWD,  ATL.OAT,  OTt-ffTR  <OTH  MATRIX) 

1600  REM  054,05,04,03- 
.1610  DATA  i?4,EB,  IPO,  1P3,  5,  6,  31,75 
16E0  DATA  BE,  105, 130„E19,  14,3,60,8,3 
1630  DATA  Ef.3,  31 5, 7 1 0,  634 ,51,91,  ,343,  31 ,3 
1640  DATA"  FLEET  TOURS” 

1650  DATA" FLEET  READINESS  SOUAORON" 

1660  DATA"TRAINING  COMMAND" 

1670  DATA"RftE>  COMMUNITY" 

16B0  DATA  "AFLOAT  ASSIGNMENTS" 

1630  DATA" PROFESSIONAL  EDUCATION” 

1700  DATA "OTHER" 

1710  DAT  A"  L  INASS  I GNFD  " 

17P0  DAT  A  "NON -AVIATION  ASSIGNMENTS" 

1730  DATA" LIGHT  ATTACK" 

.1740  DATA" FIGHTER" 

1750  DAT A" MEDIUM  ATTACK" 

.1760  DATA" EARLY  WARNING" 

1770  DATA "ELECTRONIC  WARFARE" 

17B0  DA.T A" CARRIER  BASED  ASW" 

1790  DATA" HELICOPTER  ASW" 

1800  DATA" MAR I TIME  PATROL" 

1810  DATA" LAMPS  Ml<  I" 

1800  DATA "LAMPS  MK  III" 

18.30  DATA  "ELEC  TRONIC  WARFARE  ••  VO" 

1040  DATA" FORCE  SUPPORT  -  JET" 

1850  DATA" FORCE  SUPPORT  -  PROR" 

1860  DATA" FORCE  SUPPORT  -  HEI.O" 

1870  DATA" STRIKE" 

1880  DATA” MAR I TIME  PATROL" 

1 890  DATA."  HflL  I  COPTER  " 

1900  DATA" RADAR  INTERCEPT  OFFICER” 

1910  DATA" TACTICAL  NAVIGATOR" 

1330  DATA" ATDS" 

1 3.30  DATA  "  NAV I  GATOR  " 

1340  DATA "FIRST  FLEET  ITERATION  COMPLETE" 

1950  DATA" FIRST  TOUR  FILL-UP  COMPLETE" 

19C-0  DATA" CATEGORY  SEARCH  COMPLETE" 

1970  DATA" NTEA '  S  CREATE)?" 

1380  DATA"FIRST  TOUR  LENGTH  ADJUSTED" 

1990  REM  LOAD  T9*  WITH  TOUR  I.ENGTI  I  AND  BARRED  TOURS 
3000  DATA"  3GOOONNNNNNNNNNNNNNNNNNOOO " 

30 1 O  DATA" 36NNNNNNOOOMNNNNNNNNNNNOOO " 

3030  DAT  A"  36NNNOOOOOOOOONNNOOOOOOOOO " 

3030  DATA"36NNNOOOOOOOOOOOOOOOOOOOOO" 


B-A 


/♦ATDS4V 
/♦NAV  ♦/ 

DPP  6 


/♦RJVD4V 
/«Art  0AT^7 
/MOTHER-*/ 


/♦FLEET  !*/ 
/♦FLEET  E»-,- 
/♦FLEET  3-»  / 
/♦FLEET  44// 


SECTION  I:  DEFAULT  DATA  AND  INITIALISATION 

*£040  DATA" 3GNNNOOOOOOOOOOOOOOOOOOOOO" 

£050  DATA "£4000000000000000000000000" 

I  £060  DATA" 1 £000000000000000000000000* 

£070  DATA"3C.NNNNNT^NIn|)v*'1NN)^JNNNNN000“ 

£080  DATA"  3G000NNNNNNNNNNNNNNNNNN000 " 

I  £030  DATA"36OO0NNNNNNNM^NNNNNInJNNN000" 

£1 OO  DATA"  3GOOONNNNNNNN)'JNf'4NNNN!\INNOOO  " 

£110  DATA"  3GOOOWNNNNNNNNNNNNNNNNNOOO " 

£  1  £0  DATA  "  £4000NNNNNN000000000000000 “ 

I£1 30  DATA"£4000NNlHlNrvlNNNNNNNi^N)s!Nt'-!N000" 

£1 40  DATA"  P4OO0NNNNNNNNNNNNNNNNNN000 " 

£  1 50  DATA  "  3G000I 4NNNNNNNNNNNNNNNNNOOO  " 
i  £1  GO  DATA"  3C-NNNNNNNNNNNNNNNOOOOOOOOO  " 

I  £1 70  DATA"  3GOOONNNNNNNN!  •4000000000000" 

£180  DATA"  3GOOONNNNNNNNNOOOOOOOOOOOO  * 

£130  DATA "£4000000000000000000000000" 

I  ££OC  DAT  A  "  36NNNNNNOOOOOOOOOOOOOOOOOO  " 

££  1 0  DATA"  3C.AINNI'4NNi\|NNMN!^41'<NNr4h«'4NOOO " 

£££0  DAT  A  "  3GOOONNNNNNNNNNNNNNNNNNOOO  " 

££30  DATA" 3GOOOOOOOOONNNNNNOOONNNOOO" 

££40  DAT  A"  3GOOOOOONNNNNNOOOOOOOOOOOO " 

££5-0  DATA"  3GOOOOOOOOONNNOOOOOOOOOOOO" 

££f.O  DATA"  3GOOOOOOOOONNNOOOOOOOOOOOO" 

££70  DATA"  3GOOOOOOOOONNNOOOOOOOOOOOO " 

££80  DATA  "  EAlNJI'J^^NNNNNhJNl'JNNNLJNNNNNOOO  * 

££30  DATA "  £4NNNt  JNNNt  JNNNWNNNt  4NNNNN000 " 

£300  DATA" £4NNNOOOOOOOOONNNOOOOOOOOO " 

£310  DAT  A  "  £4NNNOOOOOOOOONNNOOOOOOOOO “ 

£3£0  DATA" E4IJNNOOOOOOOOONNNOOOOOOOOO" 

£330  DATA" £4NI\INOOOOOOOOONNNOOOOOOOOO " 

£340  DATA" £4 OOOOOOOOOOOONNNOOOOOOOOO " 

£350  DATA "  £4NNNNNNNNNNNNNNNNNNNNNOOO “ 

£3G0  DATA "  £4000NNNNNNNNNNNNNNNNNN000 " 

£370  DATA" £400000O000O0ONNNP',NMOO000O " 

£380  DATA"  F4000OOONNN000O00NNU00O000" 

£330  DATA" 1 £OOOOOOOOOOOOOOONNNOOOOOO " 

.£400  DATA"  1  £OOOOOOCOOOOOOOONNNOOOOOO “ 

£410  DAT  A  "  1  £OOOOOOOOOOOOOOOr  JNNOOOOOO  " 


/♦FLEET  5";V / 
/♦FLEET  G-  / 
/♦FLEET  7*/ 
/♦FEE  5.  */ 

/♦FRB  £  *  / 

/♦FEE  3  ♦/ 

/♦FEE  4  */ 

/♦FEE  5  ♦/ 


/♦rriE  c 

♦/ 

/♦PEE  7 

♦  / 

/♦TRAC 

1 

♦  / 

/♦TEAC 

£ 

>,  / 

/♦TRAC 

3 

■«-  / 

/♦TEA C 

4 

*/ 

/♦TEAC 

r 

♦  / 

./♦TRAC 

G 

♦/ 

/♦TRAC 

7 

♦/ 

/*RD  .1 

♦  / 

/♦RD  r. 

♦/ 

/♦RD  3 

♦/ 

/♦RD  4 

♦  / 

/♦RD  5 

♦/ 

/♦RD  G 

<■/ 

/♦RD  7 

♦  / 

/♦An  T 

1 

♦/ 

/♦An.T 

r_ 

■*•  / 

/♦API  T 

3 

/♦An.T 

4 

♦/ 

/♦AFI..T 

5 

♦  / 

/♦An  ,t 

C, 

♦/ 

/♦API  T 

7 

■s1-  / 

/♦PROP 

l 

/ 

/♦PROF 

£ 

-;i  / 

/♦PRDF 

3 

♦  / 

/♦pn nr 

4 

♦  / 

/♦PRDr 

r 

/ 

/♦pnnr 

G 

♦  / 

/♦PRDF 

7 

•'■r  / 

£4  £0 
£430 
£440 
£450 
£4  CO 
£470 
£480 
£430 
’  £500 
£510 
£5£0 
1  £530 


DAT  A  “  3C'NN*'4r4l'Jf'4KtfJNUN,!slNNrJr-4FJNf  "VOOO  * 
DAT  A"  3C.OOO*'4NL4Nr  JNN14NNNNNNr  4tNff'4NOOO" 
DAT  A  "  3GOOOOOOOOOOOONNNNNNNNNOOO  " 
DATA"  3C>OOOOOOOOOOOONNfJNNN!^4NOOO" 
DATA"  3GOOOOOOOOOOOOOOOOOOOOOOOO" 
DATA" 3GOOOOOOOOOOOOOOOOOOOOOOOO" 
DATA" 3GOOOOOOOOOOOOOOOOOOOOOOOO" 
DATA  . 1, , 1, , 1 

select  #1 ,  "tehtoi  * ,  indexed,  recfi 

FILEFDRM:  ENT  FOE  (  1  ) ,  Cl  l(  £)  ,PDE<  3) 
PIC  '##> ,  PDF. < 3 ) ,  CM <  3 ) ,  POE (  1 P 1 ,  CH < 
PDF  (  40  >  5  CH  (  30 ) ,  POE(  70 ) ,  P  .1 C  <  m  > ,  P 


/♦OTH  1  ♦  / 

/♦DTI  I  £  ■*•/ 

/♦DTH  3  *  / 

/♦DTI  14  *  t 

/♦DTH  5  ♦  / 

/♦DTI  I  G  ♦/ 
./♦DTI  17  ♦  / 

7E-  1  5P ,  KEVEDF-  1  .  l<rVLEW~-£ 

,Pin«!',  PDF  <  5  > ,  P I C  <  ##  >  f  PDE  <  7  > , 

3 ) ,  PDF i  (  15),  CH(  3' ,  PDF(  18),CM(££L 
DE  ( 7£) ,  PIC  <#*M ,  POE  <74>,PIC(«l.#*t). 


I 

1 


B-5 


SUCTION  I:  DEFAULT  DATA  AND  INITIAL  17ATJON 


£ 540  P05<78>,PIC<#,#),P0S(B1  >,PIC<*MO,P05'8.3>,PIC<##>5P0S<Rr>,PTf  >,  1 

as  so  pds<87>,  pic  <«#>,pnr:<P9>5pic<#«),por.(9i>5Pic  <«#)  ,pos<  ,pic<#u  >  , '  i 

2550  FOS<35),PIC<#*#>,PnS(38)5PIC<##)5FOS<io6),PIC<##>,PD5<  102),  '  ' 

2570  PIC  <«L#*#),POS<  107),  PIC  <#,##*>,  POS< 1 12) ,PIC<*. ## > , POS< A  5 5) ^  ' 

2500  PIC<#.##),POS<  120),FIC<«Ltt#  )  fPOS<  124)  , PIC <#.##*#)  ,POS<  130) ,  ! 

2530  PIC <#.####>, PDS< 135), PIC <#,###*), POP < 142) , PIC <#,####> ,PnS< A 40), 
2C-O0  PIC  <#) ,  POS(  143) , PIC<#. ##  >  f  POS<  1 53) ,  PIC <##  ) ,  POS(  155)  ,P.TC  < ## > , 

2010  POO  ( 1 57 ) ,  P I C  ( #$4 ) 

£€•20  SELECT  #2,  “TEMP 02“  ,  VAR,  INDEXED.  RECS1 72-400,  KEYPOS=  1 ,  KEYI.EN*/? 

2030  FILECARrFMT  PDS< 1 > ,CH<2) , POD( 3) ,PIC<##) ,POC< 5) , 15*CH(20) ,  ! 

2040  POS<395),PIC<###>5POS<338>,PIC<#4MI) 

2050  OPEN  NODI  PPL  AY  #1 , 01 JTPI  IT,  STACE=  30,  FILE- “SOURCE" , LIPRARY-  "  0m'<E0"  ,  1 
2000  VQ.I  JME ~  “  V0L555 " 

2070  CLOSE  #1 

2080  OPEN  NODI  SPLAY  #3,  OUTPUT,  SPACE--30,  EILE3"  CAREER  " ,  LI  DP  ARY-  "DErTJEO"  -  ! 
2030  VOLUME- “VOL  555" 

2700  CLOSE  #2 

2710  JMP A 05: RESTORE  LINE  ~  .TMT100 
2720  REM  LOAD  CONTINUATION  VECTOR 
2730  FOR  I  =  1  TO  7 
2740  READ  NO  < I ) 

2750  NEXT  I 

2750  FOR  I  =  1  10  7 

2770  READ  A50  < I ) 

2780  NEXT  I 

2730  B32  =  1 

2800  FDR  I  =  1  TD  7 

2810  FOR  .1  =  P.3E  TD  R32  *  NO<I>  -  \ 

2820  RO(.T)  *  A5»0 <  I  > 

2830  NEXT  J 

2840  B32  =  E.32  NO(.l) 

2850  NEXT  I 
28P.O  R01  =  1 
2870  ROE  -  ,45 
2880  R03  *  5 
2830  R04  =  7 
2300  R05  =  11 

2310  XNIT<HEX<20> >STR <PRD7*.  12,53) 

2320  PR04-  102:  PROS*  152;  PR03-23:  PROr.=3R 

2330  STR  <  PR024, 23, 1 > -HEX <  5E ) : STR  <  PROP*. 38,  A  > -HEX < 5E ) 

2940  STR < PR 024 , 5,1) -HEX ( 5E ) 

2350  REM  LOAD  GRADE  MATRIX  CO 
23GO  FDR  I  =  1  TO  15 
2370  FOR  J  *  1  TD  13 
2380  READ  CO<I,.T) 

2330  NEXT  .1 
3000  NEXT  I 

3010  REM  LOAD  SGUADRON  MATRIX  Si 
3020  FDR  I  -  1  TO  15 
3030  FOR  J  *  1  TD  5 


I 

SECTION  I:  DEFAULT  DATA  AND  INITIALIZATION 

*3040  READ  S1<I,J> 

3050  NEXT  J 

130(10  NEXT  I 

3070  REM  LOAD  ALLOCATION  MATRIX  A1 
3080  FOR  I  *  1  TO  15 
.  3030  FOR  J  =  1  TP  9 
I  3100  READ  A1 < I , J ) 

3110  NEXT  J 
3120  NEXT  I 

I  3130  REM  LOAD  AUX  MATRIX 
3140  FOR  1=1  TO  15 
3150  FOR  J  =  1  TO  G 
31  GO  READ  AUX  ( I ,  .7  > 

3170  NEXT  J 
3180  NEXT  I 

3130  REM  LOAD  TRACOM  MATRIX 
.3200  FOR  I  =  1  TO  7 
3210  FOR  J  =  1  TO  5 
.3220  READ  TOO  (  I ,  J ) 

3230  NEXT  J 
.3240  NEXT  I 

3250  REM  LOAD  POLICY  VECTOR  PO 
32 GO  FOR  I  =  1  TO  10 
3270  READ  PO  < I ) 

3280  NEXT  I 
3230  REM  LOAD  OTH 
3300  FOR  I  «  1  TO  3 
3310  FOR  .T  =  1  TO  8 
3320  READ  PTH  (I,. I) 

3330  NEXT  J 

3340  NEXT  I 

3350  FOR  I  =  1  TO  3 

33G-0  READ  LABEL*  <  1 1 

3370  NEXT  I 

3380  FOR  K  =  1  TO  14 

3330  READ  TYPE* ( K ) 

3400  NEXT  K 

3410  FOR  K  =  1  TO  7 

3420  READ  TRA*(I<) 

.3430  NEXT  K 

3440  FOR  K  =  1  TO  5 

3450  READ  POOTT*(l<) 

34 GO  NEXT  l< 

3470  M  =  1:011  =  1 

3480  A*  =  * NAVAL  AVIATORE" 

3430  71*  =  "  YE5" :  Z3*  "YEE”  :  Z-VI  =  "NO” 
3500  REM  LOAD  T3* 

3510  FOR  I  -  1  TO  7 
3520  FOR  .1  =  1  TO  7 
35.30  READ  T3*(I,J) 
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IT  Li  1:1  u'l  ul 

p>  m  m  n  m 


SECTION  I:  DEFAULT  DATA  AND  INITIAL  1 7ATI ON 


T10*(I,.J>  =  T9*<I,.J> 
N9* <  I ,  J )  *  t€X(fT) 
NEXT  J 
NEXT  I 

FDR  1*1  TO  E 
3590  READ  FAKI) 

3000  NEXT  I 
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SECTION  II:  INTERACTIVE  ENTRY /REENTRY  ROUTINES 


I 


1  3630  *  * 

3640  *  AT  THIS  POINT  ALL  STANDARD  DATA  IS  LOADED.  AN  * 

3650  *  INTERACTIVE  ROUTINE  TO  ENTER  CHANCES  TOLL  OWE,  * 

•  3660  *  * 

I  .3670  *  * 


3680  •» 

3690  JMP.lOOr  TSO  -  liTSI  “  Or  D.7  "  RmND<R0,7*  100,  O) :  DAT-.70 

3700  MAT  Q85=ZER:MAT  G89- 7ER : MAT  07S=7ER: MAT  079= 7 ER:  MAT  PTR=7ER: 074=0 

3710  JMP110:  ACCEPT  AT <5, 10) , "»*  4-  1H-"*  *«4*««*4HHt4r4M! 

37(30  "  , 

3730  AT<3,  10>,"*"SAT<3,.70),  "*■, 

3740  AT<4,  10),  ,AT<4,  EE),  “AVIATION  OEEICER  REOUI  RrMEI  J7S  MODI.).. 

37 SO  “ ,AT(4,  70), •*-, 

37€>0  AT  <5,.  10 ) ,  ,  AT  (  5,  70 

3770  AT<6,  10)  ,  »*HMMHH4»*4H)4Hr4HMH)4MH)4HMHHM-4f4»4r4»4r4;4Hr4f4i-:r4t4Hr4r4Hr4<’<r4:*4Kr 

3780  ■  , 

3790  AT (8, 10) , “THE  AVIATION  OEEICER  REQUIREMENTS  MODEL  DETERM I 

.3800  NES  THE", 

3810  AT <9,  10)  5  M NIJMPER  OF  NAVAL.  AVIATORS  OR  NAVAL  FLIGHT  DET*  I  CEP 

38 PO  S  REQUIRED", 

38.30  AT  <  10..  10) ,  “IN  RESPONSE  TO  THE  SPECIFICATION  OF  OFFICER  RET 

3840  ENT I ON  AND" , 

38 SO  AT <11,10),  “A  NUMBER  OF  FORCE  LEVEL  AND  CAREER  PI  .ANNINS  TAR 

3860  AMETERS" , 

3870  AT<  13.  lO) , ‘Tl  IE  MOOD.  TREATS  NAVAL  AVIATORS  AND  NAVAL  N.  I  GO 

3880  T  OFFICERS", 

.3890  AT<  14,  10), ‘SEPARATEL  Y,  AND  BY  COMMUNITY,  IT  IS  PRESENT!  7 

3900  SET  TO  WORK", 

3910  AT  <  IS,  10),  ‘ON",  AT  (IS,  1  3) ,  EAC  (HEX  <94  >  ) ,  AT.  AT  (  5  5,  14  1 1  EN  (  A>  '■  ) 

39.70  ,  "  IN  THE "  ,  AT  ( 1 S,  .714  LEN (  AT  )  ) ,  EAC  < I IEX  <  94  >  ) ,  TYPET  (Oil), 

3930  AT  <  1  S.  EF-t  LEW  <  AT )  » LEN  <  TYPET  (0.1))))',"  COMM1  IN  T  TY  "  , 

3940  AT  <18,10),.  "TO  CONTI  NUT  WORK  INC  IN  THIS  COMMUNITY  TRESS 

39 SO  ' ENTER ' " , 

3960  AT  <  19,  10 ) ,  "TO  BEGIN  A  NEW  COMMLNTTY  OE  AVIATORS  PRESS 

3970  PE-1", 

3980  AT<EO, 10) , ‘TO  BEGIN  A  NEW  COMMUNITY  OE  NED'S  PRESS 

3990  PF-E" , 

4000  AT <31 , 10) ,  ‘TO  MAKE  MIA. TIPI  T  COMMUNITY  RUNS  PRESS 

4010  PF-3", 

40.70  AT  <EP,  10) ,  ‘TO  RESET  MODEL.  TO  DEE  AULT  VAI  I  TS  PRESS 

4030  PE  IS", 

4040  AT <E4, 10), ‘TO  END  PROCESSING  PRESS 

4050  PF- 1  €•"  , 

4060  KEYS <  D I N  (  O )  NT  I N  <  1  )  fcF  I N  <  .7 )  hU  IN<  7 )  fcR  IN  (  1 S )  R.P  I  N  (1  f  • )  )  ,  KE  Y  <  K  Y  ) 

4070  IF  KY  =  16  THEN  END 

4080  IF  KY  -  IS  THEN  .TMP10S 

4090  IF  KY  =  3  TI-fTN  .TMrTOO 

4100  IF  KY  =  .7  TI-fIN  .TMP140 


SECTION  II:  I  NT  ETC  ACTIVE  ENTRY /REENTRY  ROUTINES 

4110  IF  KY  =  O  T(-TN  JMT1B0 
4150  /*NAVAL  AVIATOR  DISPLAY*/ 

4130  ACCEPT  AT <3, 55),  "NAVAL  AVIATOR  COMMUNITY  OR  FTT TONS" , 

4140  AT<  5, 10) ,  "YOU  MAY  SEIJTCT  FROM  AMONG  FOURTEEN  COMMUNTTlCE  I 

41 SO  N  WHICH', 

41«3  AT<0,  10),  "NAVAL  AVIATORS  ARE  REQUIRED.  THESE  ARE  LIETEO  E 

4170  ELOW.  BY", 

4180  AT <7,  10),  “ PRESS I NC  THE  Or  KEY  CORRESPOND T NE,  TO  TIC  ITEM  M  l 

4190  MDER  ON", 

4c*  OO  AT<8,  SO) ,  "THE  LIST  YOU  Will.  SFl.FCT  NAVAL  AVIATORS  IN  TIFT 

4510  COMMUNITY", 

4550  AT (9,  10) ,  "FOR  ANALYSIS.  H  , 

4530  AT  <11,5),"  PF  KEY"  ,  AT  (11,14),  "COMMUNITY*  , AT  < 1 1 , 49 ) ,  "PE  IE  V" 

4540  ,AT<11,54>, "COMMUNITY", 

4550  AT(  13,8)  ,  "  1"  ,  AT<  13,  15) ,  "LICI  (T  ATTACK"  ,  AT  <13. 48), "8",  AT  <  '<  7. 

4500  SO), "MAR I TIM1  PATROL", 

4570  AT  <  14,8),  "5"  ,  AT  < 14,  10)  ,  "FICIITER”  ,  AT  (  14,40),  "9",AT<14.  DP  >  ,  " 

4580  LAMPS  Ml<  I", 

4590  AT  <  1 5,  8  >  ,  "  3"  ,  AT  ( 1 5,  1 5 ) ,  " MEDIUM  ATTACK  "  , AT ( 1 E .  4  7  > ,  "  10". 

4300  AT <15, 55 ) , “ LAMPS  MK  III", 

4310  AT  <  1C,  B) ,  “4"  ,  AT <  1C.,  15) ,  "EARLY  WARNING  ••  VAW"  .  AT  (  1C..  47  )  ,  "  1  i 

4350  "  ,  AT  <  1C.,  55) ,  "ELECTRONIC  WARFARE  -  VO", 

43.30  AT<17,B),"E,",AT<17, 15), “ELECTRONIC  WARFARE  VAO"  ,  AT  <1  7.  47 

4340  ) , " 15* , AT <17, 55) , "FORCE  SUPPORT  -  JET", 

4350  AT<18,  8) ,  “f."  ,  AT<  18,  15),  "CARRIER  PACED  ASW"  , AT  < 18. 47 ) , " ) ?" , 

4300  AT< 18, 55), "FORCE  SUPPORT  -  PROP", 

4370  AT< 13,8) , "7" , AT< 19, 15), "HO.  I COPTER  ASW" , AT < 19, 47 1 , " 14" . AT< 

4380  13,55),  "FORCE  Si  TPORT  ••  HELD", 

4390  AT<53, 10), "TO  RETURN  TO  BASIC  MEMJ  WITHOUT  MARINE  A  SELECT 

4400  ION  -  PRESS  'FILTER'", 

4410  KEYS  <  B  IN  <  O )  NO  IN<  .1  )  MI  IN<  5 )  NP  IN<  3 )  NP  IN<  4  )  RcP  IN  <  5 )  MI  IN  (  C  .)  NP UN 7  )hP  l  N  < 
4450  8 )  &D  I N  (  9 )  fcD  I N  <  10>ficEIN<  1  .1  >M?.IN<  15)RcPTN<  .1  3>BtBTN<  14)  ) ,  KEY  <  M5 ) , 

4430  ON  BIN(O)  GOTO  JMP110 
4440  IF  M5  =  O  THEN  JMPllO 
4450  II  -  M5 
44<E0  Oil  =  M 
4470  GOTO  JI1P.180 

4480  JMrt40:/*NT0  COMMUNITY  DISPLAY*/ 

4490  ACCEPT  AT  <  3,  50) ,  "NAVAL  FLIGHT  OETICER  COMMON T TY  SH.  rCTIONS", 

4500  AT <  5,  .10) ,  "YOU  MAY  SELFCT  FROM  AMONG  NINE  COMMUNITIES '  IN  WO 

4510  ICH", 

4550  AT  <  0 ,  .10),  " NAVAL  FLIGHT  OFTICERS  ARE  REROUTED.  THESE  ART  I 

4530  ISTED", 

4540  AT<7,  10) ,  "BELOW.  BY  PRESSING  THE  rr  KEY  C  OP  RESPOND  I NC  TP 

4550  THE", 

4500  AT<8,  10) ,  "  ITEM  NIJMPER  ON  THE  LIST  YOU  Will  SEIFCT  NTO'S  IN 

4570  THAT", 

4580  AT <9, 10) , "COMMUNITY  FOR  ANALYSIS", 

4590  AT< 11,55), "PF  KEY" , AT< 1 1 , 30 , "COMMUNITY" , 

4000  AT  < 1 3, 55) , " 1 " , AT < 1 3, 59 ) ,  "TIGHTER", 
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SECTION  II:  INTERACTIVE  ENTRY / REri'TTE S' 


1 


46-10 

AT 

<14, 

3E), 

"3" 

,AT 

<  14, 

39) 

4630 

AT 

<  15, 

35), 

"3" 

,AT 

(  1  5.' 

39) 

46.30 

AT 

<  16, 

3E>, 

"4" 

,AT 

<  1C.' 

39) 

4640 

AT 

<17, 

35), 

•5" 

,AT 

<17, 

39) 

46.50 

AT 

<18, 

3E>, 

"6" 

,AT 

<  IP, 

39) 

4660 

AT 

<19, 

3E) , 

"7" 

,AT 

<  1EL 

39) 

4670 

AT 

<  EO, 

3E) , 

"8" 

5  AT 

<30, 

39) 

4680 

AT 

<31, 

3E>, 

"9" 

,AT 

<31 , 

39) 

4690 

AT 

<33, 

10) , 

“TO 

RrTIJRN  TO 

4700  ION 

-  PRESS 

!  ' ENTER 

/  m 

>  ,  m.  I  Ml  Tl  M  I  I  , 

) ,  "EARLY  WARNI NG  -  VAW" 

> ,  "eijectrontc  warfare 

) ,  “CARRIER  PASm  ASW"  , 

)  ?  "MARITIME  rATRHl  “  , 


VAO"  , 


prop" , 

IT  MAKING 


DEL  TCT 


4710  KEYE^EINCOIW^INi  I  )M3  TN(  3 )  fWP  IN<  3 )  JfcP  IN  (  4 )  hP  IN  <  5 )  MI  IN<  6 )  f*E  IN  <  7  )JVr  ’  N  ( 
4730  B)M3IN<9>  ) ,KEY<ME) ,  ON  BIN<Oi  GOTO  JMTUO 
4730  IF  ME  *  O  TI-fEN  JMP  .110 


47.30  IF  ME  *  O  Tt-O 
4740  ON  ME  GOTO  , ,  . 
47 EO  M  =  ME  ■*  16 
4760  GOTO  JMri70 
4770  JMP 1 50;  M  -  ME 
47'  3  GOTO  JMP  170 
4730  JMP 160: M  =  ME 
4800  JMP 170: 011  =  L 
4810  JMP 180: IF  M  > 
4830  IF  M  <  16  TIHEL 
4030  IF  M  >  IE  TlfTL 
4840  IF  M  >  IE  THFL 
48E-0  PE  =  LEN(A-r) 
4060  P6  =  LEN( TYPrs 
4870  P7  =  I NT ( <E9  - 
4880  PB  =  1NT<<59  - 
4830  P9  =  I NT < <70  T 
4900  INI T  <  HEX  <  00 ) If 


JMP  1  50,  .IMP  1  CO,  JMP  i 60,  .TMr  1  CO 


10 
■  IE 

:•  THEN  AT. 


"NAVAL  FLIGHT  OTFI CERE" 

4830  IF  M  <  16  THEN  AT  =  "NAVAL  AVIATORS" 

4030  IF  M  >  IE  THEN  5-5  ELSE  S  -  4 

4840  IF  M  >  IE  THEN  El  =  4  ELSE  SI  =  1 

48 EO  PE  =  LEN<AT) 

4860  P6  =  LEN<TYPr« (Oil n 
4870  P7  =  I  NT  <  <  EO  -  (ll+PE  ))/,?> 

4880  P8  =  1NT  <  <  EO  -  <10*P6)>/3) 

4830  P9  =  I  NT  <  (73  TE-P6  PE)  /3) 

4900  INITOHTX  <30>)Puki ) 

4910  STR  (PIT.  (1),  1,101  -  "WORKING  ON" 

49.30  STR<FlT-<  n  ,  1,?,LEN<AT  )  )  -  AT 
4930  INIT  (l-EX  (30)  )P.t*<3) 

4940  STR  ( P 1 T  ( /7 ) ,  1 ,  LEW  <  TYPET  (Oil)))  =  TYTFT  (Oil  ) 

49EO  STR  <  P  .1 T  <  8  )  ,  L  EN  ( “Pt'rET  (Oil)  M3, 9)  =  "COMM!  IN  TTY” 

49CO  IF  Z4T  =  "YES"  AND  STR (ROUTE*, 1 , 1 >  < '  HEX <30 >  Tl  TN  GOTO  JMP330 
4970  ACCEPT  AT  ( 4, 70 ), FAC ( HTX ( 94 )>, CAT, 

4980  AT<  E,  10)  , 

4990  ,  AT (6,  tO> ,  "*"  ,  AT (6,  70) ,  , 

5000  AT <7, 10), **", AT <7, 1 O t P7 > , FAC ( HEX < 8C ) > ,P)T< 1 )5CH( 33> , 

5010  AT (7, 70), , AT <8, 10) ,  , AT (8,70) , AT (9, 10) , 

50.30  ,  AT  (9,  39) ,  "  IN"  ,  AT  (9,  70),  ,  AT<  10,  lO) ,  "*"  ,  AT<  10,  70)  ,  , 

5030  AT  (11, 10),  "•**",  AT  (11,10*  P8  >  ,  FAC  (HEX  (PC  )  >  ,  P  IT  ( P  )  ,  CH<  33)  . 

5040  AT  (  .1 1,70),  ,  AT  (  IE,  lO)  ,  "* 

CjQrjQ  «”  r  AT  <  1  3,  10)  ,  4'  4Hl-  H-MMH  J.J-J. 


TYTT*<01  5  ) 

=  "COMM!  IN  TTY" 
1>  O  HEX  (EO) 


THEN  GOTO  JMi 


50 EO  *"  5  AT (  13,  10) ,  "■*14Hi4 

50CO  ,  AT  (  If., 


10)  , 

, AT  < 16, 55), r AC  (HEX (81  ) > , 


5070  “DO  YCXJ  DESIRE  IN  PROCESS  MONITOR ING'1 "  ,  AT <  1 6, 55) , E  AC  ( I  EX  (  PI  )  ) , 
5080  Z1*,CH( 3) , AT( 16,61 ) , " < YFS/NO) " , AT< 18, 10) , "DO  YOU  DESIRE  UPWARD  PF 
5090  TAIL  ING3"  ,  AT(  18,  55  > ,  FAC  ( HEX  ( 81  >  )  ,  73T,  Cl  l<  3) ,  AT  (  IP,  61  ) ,  *  ( YES/NO )  "  . 
5100  AT  <84,  10) , "PRESS  ENTER  TO  CONTINUE" 


1 


SEC i I ON  II:  INTERACTIVE  ENTRY/REENTRY  ROUTINES 


El  10  IE  Z4T  =  "YES'  THEN  STE  <  ROUTE*,  I ,  I  >  =•  "A" 

5120  IF  Z4T  =  'YES'  THEN  ROTO  .TMP220 

5130  JMT130: ACCEPT  AT < 5, lO) , "THE  AVIATION  OFFICER  REQUTREUn  JTS  MODEL  I1 
51  AO  S  LOADED  WITH',  AT(f>,  10) ,  'NOMINA!..  VALUES  OF  PARAMETERS  REQUIRED  T1 
51 SO  O  DETERMINE  THE',  AT < 7, 10) , 'REQUIREMENT  FOR'  ,  AT  <  7, 20  > ,  FAC  <  I IEX  <  94  V 
51CO  >  ,  AT*,  CH(21  )  ,  AT ( 7,  27  * PS) ,  "  IN  THE"  ,  AT< 7,  34  i PS) '  FAC  ( I  IEX  <  34 )  ) , 

5170  TYPE*  (Oil ) , CH(23> , AT <8, 10) , 'COMMUNITY" , 

51 80  AT< 10, 10) , "YOU  CAN  REVIEW  AND/OR  ALTER’ THESE  PARAMETERS  PY  PRESET  1 
5190  NG  THE", ATI  11, 10),  'PE  KEY  CORRESPONDING  TO  THE  ITEM  NUMRERE  1N« 
5200  THE  L  IST  OE”  ,  AT  <  12,  lO)  5  "PARAMETER  CATEGORIES  CTVEN  Sn.nW,  TUTS  1 
5210  ACTION  WILL  CALL  LF  “ , AT < 1 3, 10 ) ,  'A  LIST  OT  THE  INTO  GATED  RAEAUET 1 
5220  ERE  WITH  THEIR  CURRENT  VALUES',  1 

5230  AT<  15,20),  'PE  KEY"  ,  AT<  IS,  30) ,  "PARAME'iER  CATEGORY",  1 

52 AO  AT< IF, 23) , ' 1 ' , AT < IS,  28) , "PASIG  COMMUNITY  PATA" , 

5250  AT ( 17,23) , “2" , AT < 17, 28) , 'TRAINING  REQUIREMENTS  DATA" , 

5200  AT<  IP, 23),  '3'  ,  AT  <  18,28) ,  'POLICY  VARIADLEE"  ,  1 

E270  AT(13, 23), 'A', ATds'/TB),  "ALLOCATION  PARAMETERS",  1 

5280  AT  <  20,  23 ) ,  '  5“  ,  AT  <  20,  28  ) ,  'CARP  R  PATH  NETWORK  ”  ,  1 

5290  AT<23,  10) ,  'TO  RETURN  TO  COMMI.NITY  SELECTION  MENU  PRESS  'Pr* 

5.300  -1C'", 

5310  AT<24, 10) , 'TO  CONTINUE  PROGRAM  WITHOUT  PARAMETER  REVIEW  RR 1 

5320  ESS  'ENTER", 

5330  KEYS <  ID  I N <  O  >  MI  I N ( 1  )  fcP  I N  (  2 )  NT  T!>l  <  3 )  F«R  IN  (  A  >  &R  IN  <  5 )  ftcE  IN  (  1 C  >  ) ,  1 

53A0  ON  (I3IN(0)&DIN(  1  >W1  JN(2)fcDIN(  9)fcPIN(4>fcniM(  5*)  W3IN<  IF)  )  GOTO 

5350  JMP280,  .JMR220,  JMT230,  .TMP2A0,  JMP2S0,  JMRRSO,  JMP21 0 

53C-0  JMP21 0:  GOTO  JMR110 

5370  JMP220:  /*DASIC  DATA  DISPL  AY^/ 

5300  IF  Z  AT  -  “YES'  AND  STR  (ROUTE*.  2,  D  O  HEX  (20)  Tl  fTN  GOTO  JMRR30 
5390  A3T-=HEX<8C>; INIT(HEX<20) )C0M1T 

5*400  IF  A1  <  G1 1  ,  S )  >0  THEN  A2T=HEX  ( PR  )  RISE  AETUlEXtOO 

5A10  IE  A1(G11,5)>0  THEN  COM!*  -  “ NUMRD\  OE  CARRIER  AIR  WINGS  " 

5420  A=D2 

5430  ACCEPT  AT  <  3,  30 ) ,  "BAST C  COMMUNITY  DATA"  ,  AT  <  3,  70 ) ,  FAC  ( l  ir X  <  94  )  ) ,  CAT.  1 
54 AO  AT (A, INT< (79  (PStPC+l  ) >/2> ) , TAG (HEX (94! > , TYROL  (Q) !  ) , Cl  PRO)  1 

5450  ,AT(4,Pf.+  .1  +  1  NT  <  (79  ••  (PS+PC.t  1  )  >/2>  > ,  TAG  <  I  IEX  < 94  >  ) ,  AT-,  CM  (21  )  ,  1 

5*45-0  AT  <7, 28  > ,  “PARAMETER "  ,  AT ( 7,  AS ) ,  "CLC!REWT  VAI.UF*  ,  ' 

5470  AT (8,  15)  j  "NUMRER  OE  SQUADRONS"  ,AT<8.  SO) ,  S!  (Q.U  ,  1  ) , 

5480  '  PIC<##), 

5430  AT  <3,  15) ,  "AIRCRART  PER  SQUADRON"  ,  AT (  9,  r-0 )  ,  S!  (  05  1 , 2 )  ,  1 

5500  PIC (#4), 

55.10  AT<  10,  15),  'CREW  FACTOR'  ,  AT<  10,  SI  ) ,  S!  (01 .1 , 3)  ,  PIC  <44.  #40  . 

5520  AT  <11,  15),  FAC (HEX  ( PC  )  ) ,  AT,  Cl  1(21  > ,  AT  (  1 1 ,  If.+  RS) ,  "PER  CREW",  1 

5530  AT<  11,51  ),S1  <0a1,S),PIC<#.  #44),  '  1 

5540  AT<12,  10),  -n  -t- > -I- i  ■(>•?<  I 

5550  ,  < 

55€>0  AT (  13,  15) , 'SQUADRON  GRAOr  DISTR IRUTTON"  , 

5570  AT < 14,20) , 'COMMANDERS" , AT (14,  SO ) , CO< Q1 1 ,  SI > , P IC  <  ##  )  ,  1 

5580  AT <  1 5,  20) ,  ' LT.  COMMANDERS"  ,  AT  (  1  S,  SO) ,  GO( 0!  1 ,  SI  i  .1  ) ,  P I C  ( #40 , 1 

5530  AT(1<%20),  "LIEl  (TENANTS'  ,  AT<  1C-,  SO) ,  GO(Q!  1  ,  SI  *  2)  ,  PIC  ( ##  ) ,  1 

££,00  AT<  17,  .10)  ,  •»•»*•»►»**«*«•«•<***•*  ' 


SECTION  IJ:  INTERACTIVE  ENTRY /REENTRY  ROUTINES 


(  EC,  10 

5X580 

AT ( 18, 15), 

.5(530 

,  AT  <  19'  15*), 

i  5(540 

AT(  13.'  53) , 

V5C50 

AT  <  80,  .15), 

5X5(50 

PIC(#**> 

,  -070 

AT < 88,  .10), 

l  eobo 

55*30 
5700 
5710 
5700 
5730 
57  AO 
57  SO 
5750 
5770 
5780 
5730 
8800 
5810 
5800 
5830 
5840 
5850 
58(50 
5870 
5880 
5830 
5300 
5310 
5900 
5330 
5940 


IHHHHHHHrlHr##  “  , 

AT  <  83,  lO),  FAC  (HEX  <80  >  ,CDM*1  , 

AT  (84,  lO) ,  "PRESS  F.KlTER  TO  RECORD  CHANCES  AND  CONTINUE"  , 
KEYS ( 8 1 N ( O ) fi<E IN ( 10)  ),KEY(ND) 

IF  Z4*  =  ■YESU  AND  ND  -  10  Tit™  STR < ROUTE*, P, 1 )  -  "A" 

IF  SI  <  15.,  1  ><>G0<  15.  13)  THEN  COSl.F  '  51(1) 

IF  A  1(011,5)  >0  ANdV-I  <  15,  1  >~GO(  15,  13)  AI>ID  SI  (01  I  ,  1  X>G0<0)  -.0  3' 
THEN  GOSt  IDy  5.1  (01  1  «  1  ) 

IF  A1  <01  1 , 5)  =0  AND  51(011,1)00.0(011,13)  THEN  OOSUD  ’  51(000) 

G0(  15,  .13)  =51  (  15,  1  ) 

IF  Z4T  <>  “YES"  TICN  JMP130 
ND  -  O 

JMP830:  /^TRAINING  REOI HREMENTS  DISPI  AY*  ■' 

IF  Z4*  =  “YES"  AND  STR  (ROUTE*,  3,1)  <>  HEX  (80)  THEN  GOTO  .TMTT40 
ACCEPT  AT  <  5,87)  ,  "TRAINING  REOI JT REMTNTS  DATA" ,  AT <  5, 70 ) ,  F AC  ( HEX  ( '14  ) 
),G4T,CH(7) ' 

AT  <0,1  NT <  <79  OP'UrfO  1  >  )/8)  ) ,  FAC  (HEX  (94  )  )  ,  TYPED  (O'O  )  ,01(83) 
,  AT(C,Pf.-»  1  +  I  NT  (  <79- (PS* PC  t  1  )  >/,?)  >  ,FAC(HFX  (34)  ) ,  AT,  CH(81  )  , 
AT<9,  10)  , 

AT(  lO,  10),  'FLEET  READINESS  SOHADROMS  (AGGREGATE  REOt  UREI'I!'  N 


TS )  ■ 


AT  (  1  1,80)  ,  'COMMANDERS"  ,  AT  (  1  1 , 53  >  ,  CO  (011,51  t  f. )  ,  P  T  C  <  H40  , 

AT  <18,  80) ,  "LT,  COMMANDER  5"  ,  AT  (  18,  53)  ,00(01  0  5'  »7  '  ,PIC  (0*0  . 
AT  (  1  3,  80) ,  *  I.  IEI 1TENANT5"  ,  AT  <  1  3,  58 ) ,  GO  ( 01  1 , 51  1 8  )  ,  P  ]  C  <  It#  t>  )  . 
AT<  14.  10)  , 


5950 

59(50 

5970 

5380 

AT  <  15,  .10) 

5930 

AT  < 10,80) , 

5000 

, AT  < 17,80) , *LT, 

(5010 

(5080 

AT< 18,  80) 

5030 

5040 

AT  < 13,80) 

5050 

AT  <  80, 10) 

5050 

5070 

AT <83, 10) 

5080 

AT <84, 10) 

‘UNDERGRADUATE  TRAINING  ,  AT  (  1  5,  37  )  , 
FAC  <  Hrx  (80),  TRAT  ( A1  ( 0.1  5  ,  S  3 )  ) ,  CH  (  83  ) 
AT  (  15,  38  * I..FN  ( TRAD  ( A!  (011,5-3)))), 
"TRAINING  PJPFJ.INE", 


TC0(A1  <011,5  3),4)!nC(#.HW), 
* INSTRUCTOR  NT 05  PFR  GRADUATE" 
TGO(  A1  <011,3-  3) ,  5)  ,P JC<*.  ****** ) , 


5090  KEYS ( P I N (  0 )  Ml  IN <  10)  )  ,KEY(ND) 

(5100  IF  Z4*  =  "YES'  AND  ND  =  10  THEN  STR  (ROUT)"*,  3,  A  )  =  -'A" 


B-13 


SECTION  II:  INTERACTIVE  ENTRY /REENTRY  ROUTINES 


€110 
6100 
6130 
6140 
6  ISO 
6160 
6170 
6180 
6190 
6POO 
f<210 
6000 
€030 
€040 
6060 
€060 
€070 
€080 
€090 
6300 
6310 
6300 
6330 
6340 
6360 
63C-0 
6370 
6380 
6330 
€400 
€410 
€400 
€430 
€440 
€460 
€460 
€470 
€480 
€430 
6600 
6610 
6600 
6630 
6640 
6660 
66€0 
6570 
6680 
6590 
€600 


IF  Z4*  <>  "YES"  THEN  GOTO  .TIE  130 
NO  =  O 

JMPP40:  /*POL  ICY  VARIAI3LFS*/ 

IF  Z4*  =  “YES*  AND  STR  (ROUTE* ,  4,  1  )  <>  HEX <00 >  TIEN  GOTO  .TIE 8 50 
ACCEPT  AT<0,  19),  “PROMOTION  FLO.1  POINTS  AND  POLICY  VAR I ARLES", 
AT<0570),FAC<IEX(34)),G4T»CH<7)5 

AT  <3,  Il'TT  <  <  73- (P5  t  PG  >  .1 )  ) /O  >  > ,  FAC  <  IEX  <  34 )  >  , TYPE* <01 1  ),CH<0?>  • 
, AT<3,PG+  U  I  NT  <  <79  -  <FS+FG'  1  )  >/P)  > ,  EAC  <  I  IEX  <  94  >  ) ,  AT,  CH(01  )  , 
AT<44  10)  ,  1 

AT <6., 03),  " PROMOTION  FLOW  POINTS" , 

AT (8,7), " COMM" , 

AT (3,3),  IE  X  <  06 ) , 

AT <  10,8),  "  O*  1  *0* 3*4*5*C.*7*8*9*  1 O*  1  1*10*13*14*1  5*1.6*17*18*  1 
1 3*00*0 .1  *00* 0.3*04  "  , 

AT  < 1 1 , 8  > ,  FAC  <  HEX  (80),  STR  <  PROP*,  1 ,  10 )  ,  CIU  10 ) , 

AT  <11, 80 ) ,  FAC  ( IEX  <  88 )  ), STL (PROP*,  1 3,  53) ,  CH<  53) ,  I 

AT<  10,3) ,  “OEOIG"  ,  AT  (  10,PR03-»7),  "4“  ,  AT <  10, ,PR0C»7  ) ,  *'  6“  , 

AT<  13,  10)  ,  I 

AT<  IS,  30) ,  *POI.  ICY  VARIASLES”, 

AT <17,10), “PLOWDACK  INSTRUCTORS  < TRACT JON  OP  GRADUATES)",  1 
AT  <17,  €C) ) ,  PO  <  1 ) ,  P I C  ( # .  #4  ) ,  '  1 

AT <  18,  10),  "POSTGRADUATE  FLOW  (  FRACTION  Or  10  YEAR  COHORT  i  "  1 
,  AT  <  1 8 ,  €-0 ) ,  P  O  <  0  >  ,  P I C  <  # ,  ##> , 

AT<13.,  10),  "WAR  COLLEGE  FLOW  (FRACTION  OF  .18  Yr  AP  CO)  IOf.  T  )  "  ,  1 
AT  <  13,  €6 ) ,  PO  <  3 ) ,  P  T  C  <  # ,  1MI ) ,  ‘ 

AT  <01 , 10  )  ,  •************0Mr***-»f*<H*«HMr***«4MHI**  •**•*•»«-»  «Mr  «* ■«■ * -l-  i- «•  ’ 

■tt  -H-tt  IHHHMHHHMHr  "  I 

AT <03, 10) , "PRESS  PF1  TO  RECORD  CHANGES  AND  REDISPLAY”, 

AT  <04,  10) ,  "PRESS  ENTER  TO  RECORD  CHANCES  AND  CONTINUE”  , 

KEYS  <  E I N  (  0 )  RcD  I N  <  1  )  ) ,  KEY  <  PR  ) ,  NOAI. T  COTS  JI1P046 
PR03  -  P06 < PROP*= " 4" ) 

PROS  =  POB ( PROO*= " 6*  ) 

I NI T  <  IEX  <  00 )  )  STR  <  PROOO- ,  1 3 ,.  S3 ) 

STR  <  PROOi , PROS,  1 >  =  HEX  <  6F ) 

STR < PROP*, PROS, 1 >  -  HEX <5E) 

IE  PR03  >  01  AND  I  NT  (  <PR03  01  )  /3> '-  <  PR03  0.1  )  /3  THEN  PR04  -  3,6  •» 

I NT ( (PRD9-P! ) / 9 ) 

IF  PR03  >  01  AND  1NT < < PR03 - 01 ) /3> <> < PR03  01  ) /3  THEN  PR04  «  3„ 6  ,  . 

INT<  (PR0.3-P1  >/3)  .6 

IF  PR03  <  00  THEN  PR04  =  PR03/0  ••  1 

IF  PROG  >  0.1  AND  INT<  <PROG  01  )/3>~  (PRD6  Oi)/3  TIEN  PROS  =  9.6  ■* 

I  NT  <  (PROG  01  )/3) 

IF  PROP.  >  0)  AND  INT<  (PROG-PI  ) /3)0<PR06-01  ) /3  THEN  PROS  -  9.  5  ■*  1 

INT<  (PROC  -01  ) /3)  +  ,6 

IF  PRDT.  <  00  THEN  PROS  =  PRDC./O  .1 

PR04  «  10*PR04  -  18:  PROS  -  10*PR06  -  18 

IF  PR  *  1  TIEN  JMF040 

JMP046:  IF  74*  =  MYr:S"  TIEN  STR  <  ROUTE* ,  4 ,  .1  )  -  "A" 


B-U 


SECTION  II:  INTERACTIVE  FNTRY/REENTRY  ROUTINES 


Ice.  10 

0-830 

€830 

10,840 
€850 
€80:0 

(€870 
€880 
€800 
,  f.700 
8710 
8730 
G730 
€•740 
€•730 
f,7CO 
€•770 
€•780 
€•730 
€-800 
€810 
€8E0 
€830 
€840 
€830 
8800 
€870 
€880 
€830 
€>300 
€.310 
83/30 
8330 
€•340 
€•330 
€•360 
8370 
8380 
8330 
7000 
7010 
7030 
7030 
7040 
70S0 
70£O 
7070 
7080 
7030 
7100 


IE  74T  =  ■  YES "  THEN  GOTO  .TMP3EO  ELSE  GOTO  .TITS  100 
JMP3S0:  /^ALLOCATION  PARAMETERS)*/ 

IF  Z4T  =  “YES”  AND  STR  (ROUTE*,  S.  1  )  <>  HEX  (30)  THEN  GOTO  .IMP  30,0 
ACCEPT  AT  <S,  30)  ,  "ALLOCATION  PARAMETERS"  ,  AT <  S.,  70)  ,  FAC  (HEX  ( 34  >  >  ,  G4T 
,  AT  <8,  INT  <  (73  •  (P5«PG*  1  )  )/3)  > , FAC (HEX <34 >  >,  TYPE.lt  (01 1 )  ,011(33  > 
,  AT(8,P8+  1+INT(  (73  <FS+P8«  1  )  >/3)  >  , FAC  (HEX  ( 34  >  ) ,  AT ■,  CI  RRI  ) , 


AT( 14, 10), 
TRAT(A1 (01 5 


10) ,  “FRACTION  OF  ALl  “,  AT  <  13,  38  >,  FAC  < HEX  <  RC  >>,  AT, 
CH<3?) ,  AT  <  13,0-S),  A1  (Oil  ,  SI  +  3 ) ,  PTC  ( (t ,  ##«  M  )  , 
FRACTION  OF “ , AT <14, 33 ) , F AC ( HEX ( 8C ) ) , 


3) ) , CM ( 33  > 


:  AT  (  14.  33>|.FN(TRA'J<  A't  (01  '/  ,S  ?.))>) 
•  ) ,  A!  (01  1,S1*3) , 


FAC  ( TUX  <  PC  )  ),  AIT,  Cl  1(31  ) ,  AT(  14,0 
PIC<#.  ♦€»##), 

AT <  18,  10)  P  'FRACTION  OF  CARR  I  FT,' "  ,  AT <  10.,  30) ,  TAf  (HEX  <  8C  )  )  , 
AH-,  CH (  31  ) ,  AT <  18,  08) ,  A 5.  (Ol  1 ,  SI  4  4  > ,  P  TC  < #  .  )  ’ 

AT  <  18,  iO),  “FRACTION  OF  ALL  AVIATION  DTriCFES"  ,  AT  <  18.  f  S) 
AKOll,  3),  PJC(«.  ###«), 

AT  (31 


AT  <33,  10),  FAC  (HEX  (80  ),COMT, 

AT  <  24 ,  IO),  “PRESS  ENTER  '  TO  RECORD  CHANCES  AND  CONTINUE"  , 
KEYS ( B I N  <  0 )  MB  IN  ( IO)  ) ,  KEY < IvJD ) 

IF  Z4if.  =  "  YES”  AND  ND  -  10  THEN  STR  (ROUTE it, 

IF  Z4T  <>  "YES"  THEN  TMP130 
ND  =  O 

JMPOCO:  /*  NETWORK  NODE  DISPLAY  */ 

IF  Z4T  =  “YES”  m3  STR  ( ROI  HOT,  1  ) 

ACCEPT  AT  <  1 ,70),  FAC  (HEX  (34)  >,04*1, 

AT  <  3 ,  1 0  > ,  ”  YCH  J  C  AN  I  NSF> EC  T  AND  /  DR 
TWORK  CHARACTERISTICS” , 

AT <3, 10), “ASSOCIATED  WITH  ANY  NODE  IN  THE  NETWORK 
ECT  A  PARTICULAR  NODE", 

AT (4, 10) , "REPLACE  THE  'O' 

BYPASS  A  NODE " , 

AT<5, 10), “PRESS  'TAD'.", 

AT <7, 43 >' "TOUR  NUMBER", 

AT  <  33 ) , "ACTIVITY" , AT < 3, 43 > , " 1 

FAC  ( HEX  (  PC  )  ) ,  LADD.T  (  1  ) 


TO 


1  )  - 


HEX  (30)  THEN  GOTO  JMP3B0 


MriDiry  the  caresp'  rath  Nr 


m  sri. 


in  tie:  diagram  on  nw  with  am  'x 


AT ( 1 1 , 1 5 ) 


3  3 

;  AT  < 11 , 43 


4 

>  ,EAC 


€• 


7" 


(HEX (BE) ) 


NOT  ( 1 ,  1  ) ,  AT  <  1 1 , 4C ) ,  EAO  ( HEX  ( 88 )  > ,  WOT  (  1 , 3 ) ,  AT  <  1  1 ,  SO  > 


FAC  (HEX  (88)  ) ,  WOT  (!,?•),  AT <  11  ,  S4  > ,  F  AC  ( HEX  <  88  )  ) 


0,3 ) 


NOT <  .1 , 4 ) ,  AT (  1 1 ,  SR ) ,  FAC  (HEX  (88)  > ,  NOT (  1 , 5) ,  AT  <  1  1 
FAC  <  HEX  <  88 )  ) ,  WOT  ( .1 , 0.  > ,  AT  ( 1 1 , 0,0.  > ,  T  AC  <  HEX  (  8B  )  ) , 
NOT (1,7), 

AT  <  1,3,  1E,),FAC<HEX<BC)  >  ,  LADELTU?) ,  AT  <  13,  4/3)  ,  FAC  (HEX  (88)  ) , 
NOT  <  3, 1 ) , AT  < 1 3, 4C ) , FAC ( HEX ( 88  > > , NOT (3,3), 

AT <13, SO), FAC (HEX (88) >,N3T(3,  3) , AT ( 13, S4 ' , 

FAC ( HEX  <  88 ) ) , NOT (3,4) , AT  < 13, SB  >  <  F AC  < HEX  < 88  > ) , 
NOT  <  3,  S ) ,  AT  (  1 3,  CD ) ,  FAC  ( HEX  (  88 )  > ,  NX  (3,8), 

AT  <  13, 88),  FAC  (HEX  (88)  ),NOT(  1,7), 

AT<  13,  IS)  ,  F  AC  ( hlEX  (  8C  )  )  ,  I.  ABF1.T  <  3 ) ,  AT (  13,  43 ) ,  F  AC  < HEX  ( 88  >  )  , 
NOT <  3 .  1  ) ,  AT(  13.  40  ) .  FAC  (HEX  (PRO  )  ,  NOT  (3.3), 


i 
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7110  AT  <  1 3..  SO) ,  FAC  (HEX  (SO)),  NO*  <3.  3) ,  AT  <  13,  54  >  , 

7120  FAC<HEX<88)  )f  NO* <3,  4),  AT <  1 3.,  58 >, FAC  < HEX  < 88 )  >  , 

7130  N9*( 3,  5) ,  AT ( 13.,  6/7)  ,  FAC  (H7X  ( 88)  > ,  W3T(  3.  C), 

7140  AT  <  13,  66  >,F  AC  <  HEX  < 88  > )  *  MOT  ( 3,,  7  >  r 

7150  AT  <  14,  15)  ,FAC  O-BTX  <8C  >  >  ,LADE1.*(  4) ,  AT  ( 14..  43)  ,  FAC  (HEX  ( 88)  >, 

7160  N9* <4,1),  AT ( 1 4,  40 )  5  FAC  < HEX  < BR )  ) , NO* <4.  3), 

7170  AT  (14,  SO ) ,  FAC  <  HEX  <  88  > ) ,  NO*  (4,3),  AT  (14,54), 

7180  FAC  < HEX  <  88 > ) , NOT <4, 4) , AT <14 , SB  > ' FAC  < HEX  < BB ) ) , 

7190  N9*<  4,  S) ,  AT <14,  f*?> ,  FAC  O-SFX  <B8>  )  ^  WOT  <  4,6) , 

7000  AT  < 14, 60) , FAC  <  HEX  <  BB  > ) , NOT (4,7), 

7010  AT<  IS,  1 5 ) ,  F AC < HEX  < 80 )  >  , LAPEL* <  S> ,  AT<  IS,  40) , FAC (HEX  < 88 )  ) , 

7000  NOT  <  5, 1 > , AT< IS, 40) , FAC  <  HEX  <  BB > ) , NOT \ S, 0 ) , 

7030  AT  (IS,  50) ,  FAC  <  HEX  <  BB  >  ) ,  NO*  <  5,  3  > ,  AT  <5  S ,  54  > , 

7040  FAC  <  HEX  <  88  > ) , NOT ( S, 4 ) , AT  < 15.  SB  > ' F AC <  HEX  <  BB > >  , 

70S0  NOT  <  S ,  S ) ,  AT  <  1 S,  F-0 ) ,  F  AC  <  HEX  <  8B )  >,N0*<5,6), 

7060  AT  <  1 S,  00 ) ,  FAC  < HEX  <  BB )  ) ,  NO*  (  5,  7  > , 

7070  AT <  16,  15) ,  FAC  (HEX  <  BO  > , LABEL * < O ) ,  AT <  10.  40) , F  AC  <1 IEX  <  BB  > ) . 

70B0  NOT < 6, 1 ) ,  AT <10,  40 ) , FAC  <  I  EX  <  BB  ’)  ) , NOT  <6,0), 

7090  AT <  1 6 ,50), FAC  < HEX  <  BB  > ) ,  NOT  (0,3),  AT  <  1 0 .  54  > , 

7300  FAC  <  HEX  <  BB  > ) ,  NOT  <6  4  ) ,  AT <  10,  SB ) ,  F  AC  <  I IEX  <  BB  > ) , 

7310  NOT  <  6,  5) ,  AT <  1 6, 00 ) ,  FAC  ( HEX  <  88  >  > '  NOT  <  0 .  0 ) , 

7300  AT  <10, 00 > ,  F  AC  ( HEX  <  BB ) ) ,  NO*  (0,7), 

7330  AT <  17,  15),  FAC  < HEX  < BC ) ) , LAPEL* <  7  > ,  AT <  17,40)  ,F AC  < HEX  <  BB)  ), 

7340  NOT  <  7 , 1  )  ,  AT  <  1 7,  40 1 ,  FAC  HEX  <  BB  >  ) ,  NOT  <  7 ,  P. ) , 

7350  AT  <  .1 7 ,  SO ) ,  FAC  < HEX  <  OB )  > ,  NOT  ( 7,  3  > ,  AT  (.17,  54  > , 

7360  FAC  <  HEX  <  BB  > ) , NO* <  7.  4  > , AT  < 1 7 , SB >  ^  FAC  <  I  E  X  <  PB ) > , 

7370  NOT<7,5),AT<17,fO),FACU-EX(BB)  )'  NO* <7.  G>, 

7380  AT  < 17, 00) , FAC (HEX <  BB  >  > , NOT (7,7), 

7300  AT  <03,  10)  ,  "TO  DEC  IN  NODE  I  NET  EC  T I  ON  /MOD  I F I C  AT  1 01 0 

7400  PRESS  'ENTER'", 

7410  AT ( 04 , 10), " TO  RETURN  TO  CATEGORY  MENU  PRESS 

7400  ' PF- 1 ' " , 

7430  KEYS ( l-EX  ( OOOl  )  ) ,  ON (E I N  <  1  )  )  GOTO  JMOOO 
7440  FOR  I  *  1  TO  7 
7450  FOR  J  *  1  TO  7 

7400  IF  NOT  ( I ,  J )  -  HEX  <  OF)  THEN  ,TMrV70 

7470  ACCEPT  AT<  .1, 30) ,  "NODE  CHARACTERISTICS"  ,  AT <  1 , 70) ,  F AC <1  IEX  <  04 )  ) ,  G4T  v 
7480  AT <3,10)," NODE  CHARACTERISTICS  ARE  REFERRED  TO  THE  OUTPUT' 

7430  END  OF  THE  ARC", 

7500  AT <4, 10), "IN  QUESTION.  THAT  NODE  IDENTIFIES  TIE  ACTIVITY 

7S10  IN  WHICH  THE", 

7520  AT<5,  .10),  "OFFICER  IS  ENCAGED,  THE  ACTIVITY  AND  TOUR  NUMBS 

7530  R  CURRENTLY* c 


THE  ACTIVITY  AND  TOUR  NUMBS 


7540  AT <6, 10), "BEING  EXAMINED  IS:", 

7550  AT  <  8,  1 S.  > ,  FAC  <  HEX  <  BC  )  )  , ).  ADEL  *  <  J  )  ,  AT  <  B,  40 ) ,  ”  TOUR  N!  JMRER  "  , 

7560  AT  <B,  55),  FAC  (HEX  <80  >,  J,PIC  <#>, 

7570  AT<  10,  10), ‘FOR  TOURS  TERM  TILTING  AT  THAT  NODE", 

7580  AT <  1 1,  10) ,  "TIE  FCELOWTNG  VALUES  APPLY:  ■  , 

7590  AT  <  1 3,  34 ) ,  "  TOUR  LENGTH" ,  AT  <  1 3.  SO ) ,  FAG  <  I  IEX  <  80 )  ) .  STR  <  TO*  {  \ .  .1 

7600  >,1,2), 
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7610 

7670 

76.30 

7640 

7660 

7660 

7670 

76130 

7690 

7700 

7710 

7770 

7730 

7740 

7760 

7760 

7770 

7780 

7790 

7800 

7810 

7800 

7830 

7840 

7860 

7860 

7870 

7880 

7890 

7900 

7910 

7900 

7930 

7940 

7960 

7960 

7970 

7980 

7990 

8000 

B010 

8000 

8030 

8040 

8060 

8060 

8070 

8080 

8090 

8100 


AT  < 1 6, 10 ) , • PRECEDENT  NODE  STATE " 5  AT < 1 6,  60 ) , "PRECEDE 

NT  NODE  STATE" , 

AT  <  16,  6>  5  FAC  ( HEX  <80),  I.APEl  $<)),  AT  <  1 6,  33 ) ,  E  AC  ( HEX  <  89 )  > , 

STR < T9* <  I,  .7)  ,  3,  3) ,  AT <  16,  46) , F AC < HEX  < 80  ) ,  LABEL* <  7 
> , AT < 16, 73 ) , FAC (HEX  < 89 ) ) , STR  < TO* < I ,  J) , 6, 3) , 

AT<  17,  6),  FAC  (HEX  <80  )  ,  LABEl  *<  3),  AT<  17,  33) ,  FAC  ( HEX  <  P3 )  > , 

STR  <  T9*  <  I ,  J  >  ,  9,  3  > ,  AT  <  17, 46  > ,  FAC  <  HEX  <  80  ) ,  I.  ADR  *  <  4 
),  AT<  17, 73),  FAC  (HEX  <  83  >>,  STR  (T9*  ( I,.T>,  1,7,3) , 

AT<  18,  6),  FAC  (HEX  (80  ) , !.  ADEl.it  <  6 )  ,  AT  ( 1 8,  33 ) ,  FAC  <  I IEX  ( 83 )  ) , 

STR  ( T9*  <  I ,  J)  ,  16, 3) , AT<  18,  46)  \  FAC  ( HEX  (  8C  )  ) ,  I..ADEI.  *  < 
6),AT<  18,  73),  FAC  (HEX  (89)  ) ,  STR  <  T9*  ( I,  J),  18,3), 

AT  <  1 9,  6 ) ,  FAC  < HEX  <  80  ) ,  LABEL* (7) ,  AT  <  19.  33)  ,EAC  ( I  EX  ( 89  )  ) , 

STR  ( T9*  <I,.T);7!,3>; 

AT <71, 70 ) , “ NOTE  -  'NNN'  MEANS  THAT  THE  PRECEDENT  NODE  TO  r 

ARRED" , 

AT  (74,6),  "  TO  ENTER  CHANGES  PRESS  '  E  NTER  '  "  , 

KEYS( B IN ( 0) ) 

IF  Z4*  =  "YES"  THEN  017  =■  017  •»  1  ELSE  JMP770 
CONVERT  I  TO  STR ( T 1 1 * < 0 1 7 ) , 74 , 1 ),PIC(tt) 

CONVERT  J  TO  STR  (Til  *(017),  7.6,  1  ),PIC(#) 

STR(T11*(Q17),  1,73)  =  STR  <  T9*  ( I ,  .1 ) ,  1 , 73) 

JMP 770: NEXT  J 
NEXT  I 

IF  Z4*  =  "YES0  THEN  STR (ROUTE*, 6, 1 )  =  "A" 

IF  Z4*>  =  “YES"  THEN  COTO  JMP780  ELSE  GOTO  JMP190 
JMP 780 r IE  A  -  07  THEN  JMT790 

IF  Z4*~" YES "  AND  STR  <  ROUTE* ,  7,  1  )  OHFX  ( 70 )  THEN  JMP790 

B  =  R03rC  -  R04:  D  =  ROS 

ACCEPT  AT  <  4 , 70  ,  FAC  <  HEX  <  34  )  )  ,  G4* , 

AT<6,  10),  "YOU  HAVE  REOUESTED  A  CHANGE  IN  PI  IT'NTT ON  rOR". 

AT  <  6 ,  66 ) ,  FAC  <  HE X  ( 80  ) ,  A* ,  CH  ( 7 1 ) , 

AT  <  6 , 10) ,  "IN  THE",  AT  <6,  17  >  <  FAC  ( lirx  <  80  > ,  TYPE*  <01  1  ),CH(73) , 
AT < 6 ,  1 P + LF.N ( TYPE* < 0 1 1  )  >  ) ,  "COMMUNITY"  , 

AT <7,  10),  "THIS  WILl.  CAUSE  A  CHANCE  IN  THE  CONTINUATION  VEC 
TOR,  THE  FOUR", 

AT  <8,  10),  "PARAMETERS  WHICH  DEE  INF  THIS  VECTOR  ARr  OISPI.AYE 
D  BELOW  FOR", 

AT (9, 10) , "REVIEW  AND/OR  CHANGE", 

AT  <  17,  10),  "RETENTION"  ,  AT <  .1  7,  46)1  07, PTC <##> , AT<  17.  48), 

“PER  CENT" , 

AT ( 14, 10) , “MINIMUM  SERVICE  REOUTREMENT" , AT  < 14,46), ROl, 

PIC  <## ) , AT< 1 4, 48) ,  “YEARS"  , 

AT < 1 6, 10) , “RETFNTJON  POINT" , AT <16, 46) , R04,  PTC  < ) , 

AT< 16, 48) , “YEARS" , 

AT  <  18,  10),  "CAREER'  STABLE  8011*1"  ,  AT  <  18.  46>,ROr..  P1CIML 
AT< 18,48), "YEARS" , 

AT  <71 , 10)  , 

AT<7.3,  10) ,  "PRESS  ENTER  TO  MAKE  CONTINUATION  VECTOR  CHANGES 

N 

9 


B-l  7' 


SECTION  II:  I NTHP ACTIVE  FNTRY/REEMTRY  ROUT I NTH 
8110  KEYS ( 8 I N ( O ) ) 

81  ?0  JITPOOr  ROB  =  Br.ROA  «=  Cr  ROE  «=  D:  ROi?=IV / 1 OO 

8130  IF  Z4*  -YES'  THEN  STR  <  ROUTED >  7, 1  >  »  “A"  FI  CE  GOTO  .TMP410 
8140  GOTO  .JMP3B0 


SECTION  III;  MULTIPLE  RiJN  SET  UP  ROUTINES 

I 


18170  *  MIA  TIPL.E  RIJN  SET  UT  ROUTINES  PERMIT  SELECTING  * 

8180  *  GROUPS  OF  SUPCOMMUNITIES  WHICH  HAVE  SIMII.AR  CHARACT-  * 

8190  *  ERISTICS  FOR  SEQUENTIAL  SOLUTION  WITHOUT  USER  INTER-  « 

8200  *  VENTION,  ANY  NUMBER  OF  GROUPS  MAY  PE  SPECIFIED.  71  IF  * 

8210  *  DEFAULT  GROUPING  CORRESPONDS  TO  THE  PRESENT  UNDER  * 

’  8220  *  GRADUATE  TRAINING  PIPELINES.  * 


8230 

82  AO  JMP300;  /^MULTIPLE  RUN  SETUP  ROUTINE*/ 

82 SO  IF  Lf>=  .1 6*  THEN  GOSIJP'  8S 
8260  Lf-=0 

8270  INIT< f-f7X  <  20 )  ) GROUP*,  T GROUP*,  ROUTE* ,  EM-1 
8280  241-  -  “YES" 

8230  BGROUP*  =  "  AAABAACRCCP.ADCOODrrTEOOOOCECOO" 

8300  ACCEPT  AT < 2, 22 ) , " NAVAL  AVIATOR  COMMUNITY  SELECTIONS" , 

8310  AT (2, 70) , EAC < HEX (34 ) ) , G4*, 

8320  AT<3>32>,"  (MULTIPLE  RUNS)*'  , 

8330  AT <5,  .10),  "YOU  MAY  ARRANGE  AVIATOR  SUPCOMMUNITIES  INTO  GROIJ 

8340  PS  WITH", 

83S0  AT <6, 10) ,  "SIMILAR  CHARACTERISTICS  TO  SII1PL  IEY  THE  PROCESS 

B3GO  OF  DEFINING", 

8370  AT <7, 10), "PARAMETERS.  ASSIGN  A  SINGLE  CHARACTER  GROUT  IDE 

8380  NTIFIER  TO", 

8330  AT<8,  10),  "EACH  SUBCOMMUNITY  BELOW,  ASSIGNMENT  OE  'ZERO'  O 

B400  R  'SPACE'", 

8410  AT<3, 10), "WILL  ELIMINATE  THAT  SHCCOMMUNTTY  FROM  THE  RUN". 

8420  AT  <11, 10), "COMMUNITY", AT<1 1,33>, "GROUP" , AT t! ),S0), " COMMUNI 

84.30  TY"  ,  AT  ( 1 1 , 73) ,  "GROUP "  , 

8440  AT <  13,  8)  s  "LIGHT  ATTACK"  ,  AT <  13,  30) ,  STR  (GROUP*.  1,1),  AT  <  1.0,  *,3 

84  SO  > ,  "MARITIME  PATROL  ",  AT  <  13.  7S )  ,  STR  <  GROUP*.  8,  1  >, 

846*0  AT  <  14,8) ,  "FIGHTER"  ,  AT (  14, 30 >, STR < GROUP*,  2,  .1  ) ,  AT  (14,  48)  ,  “LA 

8470  MPS  Ml<  I  ",  AT  <  1 4 , 70 ) ,  STR  <  GROUP* .  3  >  1  > , 

8400  AT<  10,8) ,  "MEDIUM  ATTACK ”,  AT <  1  0.  30 ) .  STR  ( GROI  IP* ,  3,  1  >, 

8430  A7  < 15,48) , "LAMPS  MK  1 1 1 ",  AT  < 1 0, 70 ) , STR (GROUT*, 10, \ > , 

8500  AT  (16.,  8),  "EARLY  WARNING  -  VAW"  ,  AT  (  10,  30) ,  STR  <  CROUP*,  4,  X  ) , 

8010  AT(  10,48),  "ELECTRONIC  WART  ARE  ■  VO"  ,  AT  (  16.,  70 ) ,  STR  <  GROUP* ,  11 ,  1  ) , 
8020  AT<  17,8) ,  "ELECTRONIC  WARFARE  VAR"  ,  AT <  17.  30 ) ,  STR  ( GROUP* ,  0.  .1  ) , 

80.30  AT<  17,48),  "FORCE  SUPPORT  -  .JET"  ,  AT<  1 7, 70) ,  STR  <  CROUP*.  12,  1  )  , 

8540  AT  <  18.,  8  >,  "CARRIER  PASED  ASW"  ,  AT(  18,  30) , STR < GROUP*. ,  C,.  1  ) . 

850-0  AT(  18,48),  "FORCE  SUPPORT  -  PROP"  ,  AT<  1  8.  70) ,  STR  (GROUP*,  .1  3,  1  )  , 

806-0  AT  <  13,8),  "HELICOPTER  ASW"  ,  AT  <  13,  30 ),  STR  ( GROUP* .  7,1), 

8070  AT (13, 48), "FORCE  SUPPORT  -  MTLO" , AT ( 13, 70) , STR (GROUP*. 14,1), 

8080  '  AT  (2.1,  10),  "RUN  DESCRIPTION)  "  ,  AT  <21 , 30) ,  EM*. 

B030  AT<23, 10), "TO  RETURN  TO  BASIC  MENU  -  PRCSP" , 

8600  AT (23,6*0) ,  "Pr  ■  1C."  , 

B6-10  AT<24,  10),  “TO  CONTINUE  WITH  NTO  SIJP  COMMUNI  TI ES  -  PRESS", 

86.20  AT(24,f.O>,"  'ENTER'", 

86.30  KEYS<EIN<0>VEIN<  16)  ) ,  KEY  (MO)  ,NOALT  GOTO  .TMTOIO 
86*40  IE  MO  =  16.  THEN  74*  *  "NO"  ELSE  GOTO  .JMT320 
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8650  INIT(HEX(PO) >G4* 

86.60  GOTO  JMP110 

8670  JMP310:IF  MS  =  1C  THEN  24?)  -  'NO" 

8CB0  IF  MS  =  1C  THEN  JMPiiO 

8630  STR  <  GROUP*,  1,1?)  =  STR  <  BCROIJP*  , 1 , 1 5 ) : G= 1 
8700  JMP320:/*NF0  GROUP  SELECTION^/ 

8710  ACCEPT  AT ( 2 , 20 > ,  " NAVAL  Fl.IGHT  OFFTCER  COMMUNITY  OF)  FCT IONS"  , 

B7P0  AT  <  P,  70 )  ,  FAC  <  HEX  <  34 )  ) ,  64*, 

8730  AT<3,33),"<MULTIPI.F  RUNS)", 

8740  AT<S, 10), "NAVAL  FL.IGHT  OFFICER  SI JBCOMMIJNITTEE  MAY  ALSO  PE 

87 SO  GROUPED", 

8760  AT <6,  10)  ,  "BY  ASSIGNING  GROI  F  3 DENTiriERS.  USE  CAUTION  IN 

8770  ASSIGNING", 

8780  AT <7,  .10) ,  "GROUP  IDENTIFIERS,  IF  IDENTIFIER  IS  THE  SAM!-  AS 

8730  ONE  USED" , 

8800  AT<8,  10) ,  "FOR  PI?  OTS  THAT  KTO  FT  IPCDMMI JN T TY  WII..I  PF  INOI  IJDr 

8810  D  WITH  THE", 

88  PO  AT  (3,  10) ,  "PREVIOUSLY  OEF  T  NED  PHOT  GROUP", 

8830  AT  <11, 32) , "COMMUNITY" , AT (11, S3) , "GROUP" , 

8840  AT <  1 3,  PS) ,  "FIGHTER'  ,  AT  < .1  3,,  Sr  ) ,  STR  (GROUP*,  17,  1  >, 

B8SO  AT<  14,  PS) , 'MEDIUM  ATTACK' ,  AT  <  1  4,  SS)  ,  STR  (GROUP'S.'  18,1), 

B86.0  AT <  IS,  PS)  ,  'EARLY  WARNING  -  VAW"  ,  AT  (  1 S,  FE ) ,  STR  (  GROUPS 1 3,  1  > 

8870  ,  AT <  1 6, PS),  “ELECTRONIC  WARFARE  VAQ"  ,  AT <  .16,  SS ) < 

8880  SrR<  GROUP*,  20,  1  ), 

8830  AT(  17,  PS) , 'CARRIER  BASED  ASW' ,  AT<5  7,  SS) ,  STR  ( GROUPS  ,  PI ,  .1  ) , 

B300  AT <  18,  PS ) ,  ' MARITIME  PATROL  '  ,  AT  <  1  8,  SS  > ,  STR  ( GROUP'* .  P 3,  .1  >, 

8310  AT  <  13,  PS) ,  “EL  ECTRONIC  WARFARE  -  V0“  „  AT <  .13,  SS) , 

83P0  STR  ( GROUP* ,  PC.,  1  ) , 

8330  AT<PO,  PS  ) ,  “FORCE  SUPPORT  -  ,TFT“  ,  AT  ( PO,  SS ) ,  STR  ( GROUP* .  P7 ,  .1  1 

8340  , 

8350  AT (PI, PS), 'FORCE  SUPPORT  •  PROP" , AT ( PI , SS) , 

8360  STR  ( GROI  F* ,  28,  1  ) , 

8370  AT(P3, lO) , “TO  RETURN  TO  BASIC  MENU  -  PRESS" 

8380  , AT ( P3, SR ) , ' PE- 16“ , 

8330  AT (P4,  lO' ,  "TO  CONTINUE  MU  TIPL.E  COMMUNITY  RUN  -  PRESS" 

3000  ,AT(P4,S8), 'ENTER' , 

30.10  KEYS<  BIN<  0)fcB!N<  3  6)),  KEY  (MS) ,  NOAI.  T  GOTO  JMT330 
30 PO  IF  MS  «  16  THEN  74*  -  "NO"  ELSE.  GOTO  .IMP 340 
3030  I N I T  <  HF X ( PO  > )  G4* 

3040  GOTO  .IMP  110 

30 SO  JMP 330: IF  MS  -  16  THEN  74*  -  “ND“ 

3060  IF  MS  =  16  THEN  JMT.UO 

3070  STR  ( GROI  F*.  .16,  IS)  STR  <  P.GROUP* ,  16,  3S) 

3080  IF  G  *  1  THEN  JMP 370 
3030  JMP340: /^ELIMINATE  BLANKS*/ 

3100  LI  «  1 

3110  IF  STR  < GROUP*, 1 , 1 ) ~ “ O"  AND  POS< STR ( GROUP*, P, 14)0 "  ">-0  THEN 
9120  INIT (  “O'  )STR  (GROUP*,  .1 ,  IS) 

9130  IF  STR  (GROUP*,  17,  1  >=*"0"  Alvin  POS(  ST1< (CROl  F*,  .18,  1  3)  O'  “  >~0  TICK* 
9140  INTT(  “O'  )STR  ( GROI.F*,  16,  IS) 
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SECTION  III:  MULTIPLE  RUM  SET  UP  ROUTINES 


9150  IF  P0S(GRnUP*<>‘0‘ >=0  THEN  JMrBOO 
91G-0  FOR  O  =  I  TO  30 

9170  IF  STR  ( BGROIJP*,  O,  1  )  "O"  THEN  STR ( GROUP* . O, A >  "  "O" 

91  BO  IF  STR  <  GROUP*.  O,  1  )  <> "  “  TI3TN  .TMPOCO 
9190  FOR  K  =  1  TO  30 

9500  IF  STR ( GROUP*, K,  1  1  <>  5TR(PGR0UP*,0,  1  )  THEN  JMF3B0 
9510  STR  (GROUP*,  0,  1  )  =•  STR  <  PGRPUF*,  O,  1  A 
9550  GOTO  JMP 3E0 
9590  JMP350: NEXT  K 

9540  CONVERT  LI  TO  STR (GROUP*, 0, II f P TC <# A 
95 SO  FOR  K  =  Q » A  TO  90 

9500  IE  (5TR(PGR0UF*,K,  A  >--STR(nCR0ir*,0,  A)  )  AND  <STR  <  GROi  ip*,  l< ,  A  )  -  ”  ") 
9570  THEN  STR  ( GROUP*  ’  l<’  1  )  =  STR  (GROUP*,  O,  A) 

95B0  NEXT  l< 

9590  LI  -  I..1  ♦  A 
9300  JMPOOOUvIEXT  O 

9310  JMP 370:  COM*.  =  "PRESS  PE  SO  IE  YOU  WANT  TO  BYPASS  TUTS  SCREEN  FOR 
9350  THIS  GROUP" 

9390  STR  < G4* ,  A  ,  G  )  =■  ‘GROUP  " 

9340  TGROUP*  =  GROUT* 

9350  GA5  =  O: INIT(HEX (50) )T1 1*< > 

9300  EOR  P  *  A  TO  30 

9370  IF  STR  ( TGROI.F1*,  P,  A  >  =  "  "  OR  STR  ( TGROUP*,  P ,  A  )  *  "O"  THEN  .IMP'iOD 
93B0  G5*  =  STR < TGROUP*, P, A ) 

9390  STR  (  G4* , 7  s  A  >  =  G5*. 

9400  I NTT (HEX (50) >ROUTF* 

9410  INIT (HEX ( 50 ) >P5* < ) 

9450  1.4  *  1 

9430  FOR  0  =  A  TP  30 

9440  IF  STR  ( GROUP*,  0,  A  >  <>  GB*  THEN  GOTO  .TMP390 
94  BO  M  *  Cl 

94 GO  IF  M  !i  IB  THEN  OA  A  -  M  -  IB  ELSE  OA  A  ^  M 
9470  GOTO  JMP A BO 

94R0  .IMP 3B0:  CONVERT  M  TO  M*,  PTC  (44  A 

9490  OPEN  NODISPLAY  #1 ,  10,  FILE"-"  SOURCE "  ,  L.IPRARY-  “DEEREO"  , 

9 BOO  VPI..tJMF.=  " VOL. 555" 

9310  OPEN  NODI  SPLAY  #5,  TP,  Eli  E- "CAREER" ,  I  TPRARY-  ‘  OrEREO"  , 

9B50  VO). LIME  -  *  VOL 555" 

9590  WRITE  41  5 USING  EILEFORM, M* , 01  A , S, SI , 7 1*, 75*, 73*, A*. TYPE* ( CM  A ) , 
9540  S A  < 0 A  A  ,  A  > , SA  ( OA  A  ,  5)  ,SA  (OA  A  ,  3)  ,SA  (OA  A  ,S>  ,00(01  A  ,  51  > ,  00(01  1 ,51  '  A , 

9550  GO  (01  1 1  S.t  -«5)  5  OAT,  f>?,  G0(  OA  A  ,  SA  *0) ,  GO(OA  A ,  5  A  •»7><C0(0A  A,  SI.  iP), 

9BC-.0  TCO<  A1  (O.U,S  9)  55),TCO(  AA  (OA  A  ,.5-3)  ,3)  ,TC0(A1  (01  A,S-3>  ,4)  r 

9570  TCO<  AA  ( 01  A  ,  5 - 9> ,  5) ,  PO(  A  )  ,  PO  ( P ) ,  P0<  3) ,  At  ( 0  A  A  ,  5A  •*  P  ) ,  A 1  (  OA  1  ,  S  A  '  3 1  , 

9.BB0  A  A  (Oil,  5  A  *  4  >  ,  A  A  ( OA  .1 , 9  > ,  R01  ,  ROE.  ROT,  R04 ,  ROB 

9590  WRITE  45  USING  FILFCAR, M* , 0A5, T A J * ( A , PRD4 , PROS 

9000  STR ( TGROUP*, O, A )  =  -  " 

9010  STR  ( P5*  ( l_4  > ,  I ,  PP )  =  TYPE*(OAiA 

9050  IF  M>  I  B  T HEN  STR  ( P5*  ( L4 ) ,  55 ,  5 A  -  ‘  ( hTO )  "  EL  SE  STR’  <  P5*  ( I  4  > ,  55 .  4  A  * 

9030  "(NA>‘ 

9040  L4  -  L4i  1 


section  in:  multiple  rijn  set  up  routines 


9 £50  CLOSE  #i 

9geo  a  ose  #<? 

9C70  JMP390:NEXT  O 

9G80  ACCEPT  AT  <  E,  3P  > ,  F  AC  <  HEX  <  PC  )  ) ,  G4T,  AT  <  E,  40  >  5  -  COMPI  CTED"  , 

9C9o  at<7,p8>,  "s*ir:cr*iMUNiTiES  included-'  • 

9700  AT<10,P5),FAC<HEX<B0) >?FPt<l ),  '  < 

9710  AT(11,PE),FAC<HEX<BC)  ),PPT(P), 

97P0  AT  (  IP,  PE ) ;  FAC  <  HEX  <  PC  )  ) ,  PPT  <  3) AT(  i  3,  PE ) ,  EAC  <  HEX  <  8C  >  )  r  PPL  <  4  ) ,  ! 

9730  AT  <  i  4  ,  PE ) ,  EAC  ( HEX  ( PC  )  ) ,  PPT  <E> j  AT  <  1  E '  PE ) ,  F  AC  <  HEX  <  PC  I  )  '  PPT  <  C  >  '  1 

9740  AT <  1Cj,PE>  ,  FAC  < HEX  <  8C  )  > ,  PPT  <  7  > , AT ( 1 7, PS  > ,  EAC  < HEX  <  PC  >  ) ,  PPL  <  FO  .  1 

97E0  AT(  18,  PE) ,  FAC  <  HEX  (PC  )  ) ,  PPL  ( 9  > , AT  <  19, PS) , FAC (HEX < 8C  )  )  ,  PPT<  '■  O  i ,  1 

97CO  AT <P3,  \0) ;  *TD  CONTINUE  WITH  NEXT  GROUP  PRESS"  ,  AT  <  P3,  CO  E 

9770  “PRESS  'ENTER'*,  '  ! 

9780  AT <P4, 10) , “TO  REINITIATE  Tin:  GROUP  SELECTION  PROCESS  PRESS 1 

9790  " ?  AT  <  P4 ,  CO ) ,  ”  ' PE  A  0 '  “  , 

9800  KEYS  <  B I N  <  O )  RtP  I N  <  .1 G )  >  ,  KEY  <  L C  > 

98.10  IF  LG  =  If.  THEN  .TATTOO 
98P0  JMP400: NEXT  P 

9830  MAT  TOT  =  ZER : MAT  TOT A  =  ZER: MAT  TOTN  *  ZER 
9840  INIT(IB:X<P0)  )MCROUPT 
98  EO  TGROUPT  -  GROIJPT 
98CO  FOR  14  *  1  TO  30 

9870  IF  STRIBGROUTL,  14,  A)=“0“  THEN  JMT1G40 

9880  IF  STR  ( TGROUPT;.  14,  1  )~"0“  THEN  STR  ( MCRDUPT .  1 4,  1  >  -  "  X " 

9890  IF  STR  <  TGROUPT i.  I4,l>=-“0“  OR  OPR  <  'rCROUPT .  I  4.  I  )  -  “  tt"  THEN  .IMP  3  040 
9900  GET  =  STR  <  TGROUPT 1 4,  I  > 

9910  FOR  IE  =  \  TO  30 

99P0  CONVERT  IE  TO  I*,PIC<##> 

9330  IF  STR  (GROUP*.  IB,  i)  <>  GET  THEN  JMP1C.30 

9940  OPEN  NODI  SPLAY  #1 ,  10,  FILl>“SOLf}CI' “  ,  I.  IJ3RARY--  "OTTRCG"  ,  VOLUME--"  VO  EE! 
9350  E" 

9300  OPEN  NODISr*L.AY  #P,  1 0,  FI  I S.~  "  CAREER  ’M.  ICRARY-  "  OrrREO"  ,  VOI  I .«ME  =  "  V0!„  EE  1 
9970  S" 

9980  READ  #1  ,  KEY"  IT,  USING  F  I  REFORM,  lit.  G.l  1  .  S.  El Z1T,  ZPT,  Z“M . 

9930  AT,  TYPE'*  <  G1  1  ) ,  SI  <GA 1 ,  1  > ,  SI  (OU  ,  P> ,  SI  <  G1 5  ,  3) ,  SI  <01  A ,  S  >  I 
10000  GO  (01 1 ,  SI ),  GO  <0.11,  SI  *  1  >,G0(0A  1  .SI  *  P ) ,  OA.T ,  DP ' GO ( Q 1  1  ‘  p.l  if,), 

10010  C0(GU,S1  t7),GO<Gl),SH8>fTCO<Al<GAA,S  3>5P).TCO<A1  (Gli.S  T.3L  1 
lOOPO  TCO(Ai  <G1  i,S  3)  ,4),TC0<  A.l  (Cl  1  ,S  3) ,  E>  ,P0<  I  )  ,PO<P>  ,P0<3> , 

10030  A1  (0.11, SUP),  A1  <0.1 1  ,S10> ,  A1  (01 1 ,  SI  »4)  5  A)  (01 1 . 3)  ,  '  • 

10040  R01 , ROP, R03, R04 , ROE 
10050  Cl.  GEE  #1 

lOOCO  READ  #P, KEY* IT, USING  F  ILFCAR ,  MT ,  01P.  T 1 1 T  (  ) ,  PRD4  . .PROS 

10070  CLOSE  #P 

10080  CONVERT  Ml  TO  M 

10090  IF  01P  *  O  THEN  .TMP410 

10.1  OO  FOR  K  =  1  TD  01 P 

10110  CONVERT  STR<T11T<I< )  ,P4,  1  >  TO  I 

101 PO  CONVERT  STR  <  T  5  1 T  ( l<  >  5  PE,  1  )  TO  .T 

10130  STR  <  T9T  <  I ,  ,J  ) ,  A  ,  P3)  *  STR  ( T 1 1 T  <  IO  ,  1,  P3 ) 

10140  NEXT  K 
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SFCTION  III:  MULTIPLE  RUN  OET  tJP  ROUTINE'S 


10150  JMP410: 

101E-0  B3/7  =  1 

10170  FOH  I  =  1  TO  7 

10180  FOR  .T  =  E.37  TO  B37  ■*  NO<  I  )  -  I 
10.130  ROOT)  *•  A50<  I  ) 

10700  NEXT  J 

10710  B37  *  B37  +  NO ( I  ) 

10,700  NEXT  I 

.10030  E  *  SOP  <  R0.7/R0  (  1  >  > 

10?W  FOR  I  =  R03  ■*  1  TO  R04 
10050  RO ( I >  =  E 
100 CO  NEXT  I 

1 0r?70  E  =  ,  3f?A*  (  (  <  ,  45  4  RO,7 1  /  <  74-R07 )  >  *  * -  10) 

10780  FOR  I  =  ROA  4  1  TO  ROE 

10730  RO  < I )  =  E 

10300  NEXT  1 

.10310  GOCI.IT '  03 
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SECTION  IV:  REQUIREMENTS  COMPUTATION 


10340  *  * 
10330  *  MODIFICATION  OF  DATA  COMF1  FTE,  OFCTN  REOUIREMENTS  * 
10300  *  C  OMT  LIT  ATI  ON  >  * 
10370  *  * 


103B0  <MI  M  M  >i  W 

10300  MAT  DO  =  ZER:  OAT-OAT/lOO 
10400  IF  M  >  IF  THEN  P^A  El.ST  F*1 
10410  IF  m:;if  THEN  B  =  S  E3.se  B~4 
1 0400  /*FI.EET  TOURS*/ 

10430  DO  (1,1  >  =  SI  <01 1 ,  1  >*SI  < Ol  1 ,  i?>*SI  <01. 1  }  3>*S1  <0.1  1  ,  B  )  ■  (GO'ftU  ,P)i 

10440  GO <01 1  ,  P  +  .1  >  >*S1  <011,1 )  +  AIJX  < 0.1  1  ,  P •*?)  i  AS.  <01  1  ,P  iO^.W  1  S,  1  1* 

1043-0  GO  <  .1  Sf  P  •  ,2) 

10400  D0<  I,«T)  =  GO  <01 1,P+1  >*E1  <01  1 ,  1  MANX  <011  ,P  -t  1  )  >M  <013  -P  U;  )-»Sl  <  1  r 
.10470  *G0<1S,P-U> 

104S0  DO  (1,3)  =  G0<01 15P>*S1  <G1 5 ,  1  >  •«  AIJX  <0.1 1  ,F> 

.1 0430  DO <  1 ,  A  >  =  A1  <01  .1 ,  P-*  4  )*S1  <  1  S5  1  )*G0 <  1 3,  P  > 

.10300  /*  FRS  TDURS  */ 

10310  D0<  E;  .1  )  -  GO  (01  5  ,  P  t  P ) 

10SPO  D0<,?',?>  =  GO  <0.1  1  j  P+7> 

10330  A=E 

10S40  IF  GO  <01  1 ,  10)  >0  TI  CK'  A-1 

.10  3  SO  IF  GO  <0!  l,7>-0  THEN  A-0 

.10 SC-0  IF  M:  IS  AND  GO< 01  i  .10 1  ~0  THEN  A-0 

10370  DO <  ,2 ,  3 >  =  GO <0.1 1  ,P»C>  A 

10SB0  DOC, 3,  A)  =  A 

10300  /*  TRAINING  COMMAND  TOURS  <  I  FES  FIRST  TOUR )  */ 

.tOC.OO  IF  M.i.lS  THEN  A=?  ELSE  A-.1 

lOC.lO  DO  (  3 ,  r?  >  =  A.1  <011,P-»3)*TC0<A1  <01.  1  5  A),  3) 

10C.E0  DO <  .3 ^  3 )  «  A1  <01  1,P  *3)*TC0<A1  <0.1  K  AK21 
IOC. 30  /*  OTHER  REQUIREMENTS  */ 

1  004 O  IF  MM3  THEN  B=^  EI.SF  P  =  S 
IOC. SO  FDR  I  =  1  TO  3 
10060  IF  1-3  THEN  NM+4  El  SE  N-M 
10C.70  FfX<  ,T  =  1  TO  4 

10GB0  DO(N,,.J)  =  A.WG1  1,PN?)*0TVI<I,R  ,T) 

10630  NFXT.J 
.10700  NEXT  I 
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1 07 1?0 
10730 
10740 
10730 
1 07€-0 
10770 
107530 
10730 
10000 
108.10 
10800 
10830 
10840 
108  CO 
1 0800 
10870 
10880 
10830 
.10300 
10310 
103r?0 
10330 
10340 
10930 
.1 09C-0 
10070 
10380 
10390 
.1  1000 
1 1010 
11030 
1  1030 
I  1040 
1  1030 
1 10CO 
1  1070 
1  1080 
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*  BASIC  REQUIREMENTS  COMRUTATTON  COMRI  .  ETE, 

*  BOGIN  NETWORK  SOU  IT  I  ON  PROCEDURE^  THE  MATRIX 

*  DO  (  )  IP  NOW  LOADED  WITH  Al  I.  VAI  IJrS  EXCEPT  TP  AC  PM 

*  FIRST  TOUR  AND  PI  .‘OrCSST  DMA).  FTH ICATJON.  RFC  JN 

*  CALCULATION  OP  ENTRIES  TO  IUVT  MATRIX,  IN'. 'TO  IS 

*  working  file. 

*  I N VT  <  8 ,  - >  =  TOTAL  LINE 

*  INVT  <3^  -  )  -  CUMULATIVE  TIA'FNTORY  LINE 
■* 


■t1 


■M 

-«» 

* 


*•**  •*•»!-*«>*  «•**•*  *tV.  K-Vfie)1):  v  t-V *••»>*> 


Dr?  =•  O 

IF  M  <  IS  THEN  L  =•  1  FT  ST  I..  =  ? 

FOR  I  =  .1  TO  7 
G38 ( I >  =  0 
FOR'  J  =  .1  TO  4 
04  <  I ,  .1 )  =  DO  (  I  ,  .1  ) 

NFXT  ,J 
NEXT  I 

FOR  .J  -  1  TO  4 
FOR  I  -  1  TO  7 
Dr?  ~  D?  t  DO  (  I ,  J  ) 

NFXT  I 
NFXT  J 

CS  =  1:R0R  =  o 

FOR  J  -  1  TO  30 

ROR  -  R08  •<  0rT‘<  1  >R0<  J>  > 

CS  --  CS*RO(J> 

NFXT  .7 
P?  =  1 

FOR  J  =  1  TO  18 
P?  =  PP^RO  <  ,T ) 

IF  J  -  1?  THEN  PI  -  F? 

NFXT  J 

Dl.T  =  TCO<  Al  ( 01  1  5 1  l,3'l  )  *  R-^rO  <  p )  -i-p  1  -t  P0<3>^R?  ■»  5  /O 
10  =  DP/(  <R08/  (?*<  5  t  l/3C.n  )  Dl.T) 


.1  1030 

moo 
11110 
1 1  1  FO 
11190 
11140 
11130 
1  1 1  f  o 
11170 
11180 
1 1130 

1  i?oo 


GOSI  JO  '  33<  10  1 

GOSI.r. '  07 


JMPUPO.Rri'1  COMRHTr  TRACOM  FIRST  TOUR  NUMRERS, 
IF  H<  1 3  THEN  I  =1  FIST  I  .=? 

DO(  9,  1  )-D0(  9.  1  )  tTCO(  Al  (OUT  1 , 9t|  l-»M  NOTCH  91  ^ 

/■»cor*inmr  froeeeotonai  education  mumpers*/ 


DO(C>,  1  ) 
00(3, F> 
DO (3, 3  > 
DO ( f.,  4) 
D80=0 


DO(C.l)  >  PO(F)*INVTO(  !?>*? 

DO  <  C  SF )  P0<9>*TNVT0<  10*1  /9 

DO  (  f  ..  3 )  4  PO(?)*TNVTO<  18  HO /9 
DO <  f  ,  4  >  ■*  PO(  9)^TNVT0<  .10*5 /9 


FOR  .T  ~  1  TO  4 
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SECTION  V:  NETWORK  SOLUTION  ROUTT NTS 


11P10  DR(.T)  =  O 

UPPO  FOR  I  =  1  TP  7 

1.1P30  DB(.J)  =  DB(J>  ♦  DO(Ij.J) 

1  1P40  NEXT  I 

11POO  DBO  *  DRO  +  DB(,T> 

iipoo  NrxT  j 

1.1P70  /*  COMPUTE  FRONT  END  NUMOFRS  */ 

I  1  PRO  CONVERT  STR  <  T Rtf  <  3,  \  )  t  1  t  P )  TO  TIE 
1 1090  CDSIJD'  Srj(0,TlR,  TNVTO<  31 >*P0(  1  ) ,  7.  .  1  > 

11300  DO  (  3j.  i> -ROUND!  <DO<3,  1>  -C.  > ,  A ) 

113.10  14(3.  .1  GROUND <  IP,  A) 

.t  I  3P0  07(3,  I  )  =  T  .1 P  i  1 
11330  T IP-TlPi  1 

1 1 340  CONVERT  I  NT  <  OP* „  c* )  TO  STR  (TOT- (3,  1> ,  3.  3>,pic<##-*n 
1 5  3 SO  FOR  M  TD  TS(U 
1 1300  I  NVT!  3,  I  )-  IWVT  (3,  I  )  «TF<!  I  -*  A  > 

11370  INVTtB,  I  )--JMVT(R,  I  >  TFM  H  1  > 

11300  NEXT  i' 

11330  /*  COMPUTE  El  EFT  FIRST  TOUR  I.EWCTH  */ 

1 1 400  CONVERT  STR  < TO* ( 1,1) , 1 , P 1  TP  Til 
11410  GOSIITU  ES(T1P,T1K  IP^  lfP) 

114P0  03= C 

11430  00000'  00(0,  T1  1  ,  IK!VTO<  31  )*<  1-PO!  1  >  ) ,  1  ,  1  1 

11440  IF  ( 03  >C  )  ''DO  (1,1)  TIEN  .TMP114P  /* INCREASE  Til* 

11400  IF  <D.7>C  )-D0(  1  '  .1  >  THEN  .IMP!  143 

I . 1 400  .IMP  1141  :  Til— Til  -  1  /^DECREASE  Til* 

1 1 470  COSUP '  OO  <  T 1 P , T 1 1 , I  4 ( 3, l ) , l , p 1 

1 14R0  D3=C 

1  1430  COSI.IF  ■  op  (0,  Til,  T  NVT  O  <  71  )*(  1  -P0\  10,1,11 

11S00  IF  ( 07  »  C  i  ''00  (1,1)  TIEN  T 1  1  -  Til  I  1  Fl  OF  .TIE'  1 1  4  1 

.11010  GOTO  JMP1147 

IIOPO  .IMF  1  1  4P  :  Til  =-11  HI 

1 1 030  GOSt  '  00  <  T  1  P,  1  1 1  ,  1  4  (  3,  1  ) .  i ,  p  l 

II. 040  D3=c 

110.00  GOSIJP'  00(0.  T1  1  ,  TNVTO<  71  >-M  1  TO<  1  H  ,  1  ,  1  1 

.11500  if  <nnf):no(i,i)  tiew  .tmpuao  fi  rr  .tmti  iap 
1 1 070  .imp 1 1 4 3r  cnsi  in '  oo <  o,  t 1 1 , 1 nvto <7i  >*o  ro <  i  > ) ,  i ,  i  > 

11080  oosuru  c  \  (o>  iwroi 7i  >v(  ^  ipoi  1 1  > ,  i .  i ,  i ) 

1  103O  DO (  1,  1 ) -ROUND (  (D0(  1  .  1  1  0.4  1 
llOOO  14 ( 1 ,, 1 ) -ROUND < IP, 4) 

11010  07  (  I ,  .1  )  -  T  1  1  *  7 

110PO  CONVERT  I  NT  (CP*  ,  0  )  TO  STR  (  TOT  (  1  .  1  )  ,  3,  7  >  .  p  IC  (  #*#) 

11030  CONVERT  T  1  I  TO  STR  (  T Oit  (  1  ,  1  ) ,  1  ,  P  A  5  P I C  <  #41 
1 1040  CONVERT  TH  TO  STR  ( T91-  (  1  5  P  > ,  1  '  P  l '  P  IC  ( 

1 1000  GOSUP'  Or(T1P,T1 1 , 14(7. 1 >, \5P) 

1.1000  FOR  IM  TO  TR(  I  i 

1  1070  I  NVT  (  1  ,  TNT  (  TIP  /  1  PHI  >~INVT  (  1 ,  TNT  (  T 1 71/  IP  •  T  l  1  iTR<  1  s  1  1 
11080  I  NVT  (  R.  1  NT  (  T  1  P  /  1 P  •  I  >  )UWT(F  INI  (TIP/IPi  T  1  >  TR  (  Till 
11030  IF  I  NVT  <  R ,  1  NT  <  T  1 P/  1 P »  T  )  )  <0  T  HEN  INVT(R,  TNT  (  T  i  P/ P  •  T  l  )  =0 
1 1700  NEXT  I 
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^ 1 1710  DO  ( 1 5  .1  )  “DO  i  \t  1  >  -C 
11780  IE  00(1,1X0  then  do<i,d-o 
1 1730  D0< 1 5 .1 ) “ROUND ( DO ( 1, 1>5S> 

1 1 1740  I4<  1 ,  8>“R0UND<  18,4) 
i 1700  G7 < 1 , 8) -TIP  *T1 1  +7 

11700  CONVERT  INT<C8*,S>  TO  STR  <  TOT  (  t , 8)  5  f..  0 ) „  P IC  ( ) 
t . 1770  T 1 3=T 1 1 +7 

V17B0  /*  DISTRT.DUTE  EIRST  TOUR  OUTPUT  *./ 

11730  S.10=l 
1 1800  MAT  TO  «  7ER 
•l  1010  Tf,(8)  -  1 4 <  1,1) 

1 1800  TOR  I  =  D  TO  7 

11830  CONVERT  STR  ( TOT ■<  I ,  P  > ,  1  ,  8  )  TO  TO 
(11840  IE  DO <1,11  <=  O  THEN  JUPIROO 
.11000  IE  STR (TOT! I5 8) , 3. 3)  -  “ NNN "  THEN  .TMP1800 
11800  IE  TO<I)  <;=  6  THEN  JMP.1800 
,il870  /*  COMPUTE  FLOWS  */ 

11880  IE  I  THEN  JMT  '<  8 1 0 
11830  G SOUS'  00<T13.  T8,.TC  <  I  > ;  1,8) 
noon  cnouru  ci  <ti3.'tc(  i  ) . i  ,8,  i ) 

11310  GOTO  JMP1880 

11380  JME1810  :  /^PROEESSTONAI.  DEVEl  OPKENT*  / 

11330  GPOHE'  EO(T13.  T8,  TC  <  I  ) .  8,  1  > 

,11340  .IMP  1880  :  /^.Ol.LECT  RESULTS^/ 

1 1300  DO  (  T  ,  1  )  ~RD!JND  (  ( DO  (  1 ,  1)0.8) 

1 1 3  PO  1 4  (I ,  P )  -  1 4  (  I ;  P )  t  ROUND  (  IP.  4  ) 

11370  Q7(  I ,  P )  ~  T  !  1  *  TP  ■*  8 

11380  C0NVER1  STR  <  T3T  v  I ,  P ) ,  3.  3  >  TO  08 

11330  CONVERT  ( DP  » I  NT  <  CP  >  .  r- )  )  TD  STRUTS*!  1  ..  8) ,  3..  3>  ,PIC  (#11#  ) 

1POOO  TO  (  I  •  1  )  ~Tf. <  I  ■*  i  )  t DPT 
(180.10  GOTO  JMP1P30 
1POPO  JMT'  .1800:  C  =  0:08  =•  Or  IP  =  O 
18030  Tf  • !  I  •*  1  )  =  T  f> !  I  ■*  .1  )  •*  TC(I) 

118040  07  (  1 , 8 )  “T3  1  •*  T8  *  8 
'18000  JMT' .1830:  NEXT  I 
180C-0  /^COMPUTE  OUT  Or  AVIATION^/ 

(18070  IF  TO <  8  )  <~0  THEN  .IMP)  POO 
1.18080  CONVERT  STR  ( T 34  !  7  5  8 ) ,  .1,8)  TO  TP 
18030  GOSIJEU  SO  <  T .1  3 .  TP,  TC  (  8 ) ,  3,  8 ) 

18.100  GOSIJE  '  CO  <T13.'tC(S)  .3,8.  1  ) 

1 18i  10  OUT  A  <  8  )  ~  01  IT  A  (  P  )  ■*  GP 
18180  14(7,  8) -14  (7,  P>  ■» ROUND!  18,  4 > 

18130  JMT  .18 SO  :  /-HIND  SECOND  TOUR  COME!  ITAT I  ONE*/ 

118140  IE  Z  1*0"  YES"  THEN  .JMT'  1 300 
18100  CT= " AT  END  TOUR  TWO" 

181 00  STOP  "EI'JD  TOUR  TWO  PE  14  FOR  DATA" 

118170  JMP .1 300  :  /*SEGIN  ITERATION  ON  J*/ 

18180  /*  MA.XIMAL  FLOW  ALGORITHM  */ 

18130  FOR  J  =  3  TD  7  /*  TOUR  MUMPER  *  ' 

18800  MAT  TO  -  ZER: MAT  T7  -  ZER:  MAT  .140  -  7ER 

w 

I 
I 


3 
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12210  MAT  .141  =  7ER;  MAT  R2  -•  ZER 

12220  FOR  !M  =  1  TO  7  /*  SOURCE  NODE  */ 

12230  T 1 3  =  G7  (N>  J  -  1  )  /*  START  TIMF.  W 

12240  IF  T 1 3<PRD4  THEN  S10  =  1 

12290  IF  Tl 3>~PR04  AND  TiTKPRDF  THEN  S10  «  2 

12200  IF  T13>-PR09  AND  Tl  3<~PR09 » 40  THEN  S.10  =  3 

12270  IF  T 1 3YPRD9-*  4B  THEN  SJ.O  -  4 

122B0  FDR  I  =  1  TO  7  /*DFST,  NODS  <■  / 

12290  IF  14  <N.  J  - 1  >  ~0  THEN  .IMP  1  3CO 

12300  IF  BTR<T3T(I,,J),3^N,  3)  =  "NNN“  THEN  JMP 1300 

12310  CONVERT  STR  < TOT ( I t J ) , 1 , 2 )  TO  T2 

12320  IF  J~7  THEN  T2  -  31 1  -07  (N,,T1' 

12330  GDSIJO  '  59  (Tl  3.  T2.  1 4  <  N.  J  1  )  5  I ,  J  ) 

12340  T7(  I  >=<C2/C)*D0<  I,S.\0) 

12330  1 40 (N,  I  )  =  02  /*  INTERIOR  NETWORK  ri.OW 

12300  R2(N,  I)  =  I4(W.  .T  1>/C2 

12370  JMP 1  300  r  I F  STR  ( TOT  (  I ,  J ) ,  3*N ,  3 )  -  ’  NTJN  *'  Tl  JEN  T40<N,  I)  =  O 

123B0  IF  140 (N,  I  )>TO  (N)  THEN  TORN)  -  1 40 ( N.  7  ) 

12390  NEXT  I 
12400  NEXT  N 

12410  IF  Z 1 $ < > ” YES "  THEN  JMP3007 

12420  CT  =  “  TOUR  -  NETWORK  SETUP  COMPLETE'” 

12430  CONVERT  J  TO  STR  ( C*.  f.,  1  ) ,  P IC  ( # ) 

12440  GOSIJD  ■'  if. 

124  PC  JMP30C7 : 

1240.0  /■»  LOCAL.  NETWORK  SET- IX'  -  ASSIGN  n.OWS  •»•/ 

12470  FOR  IM  =  7  TO  1  STEP  1 
12430  FOR  1  =  1  TO  7 
12430  IF  TO. < N >  =  O  THFN  JMP  1371 

12900  IF  T7  <  I  )  -  O  THEN  JMP 1372 

.12910  IF  1 4 0 ( N f  I  )  =  O  THE. I'1  .IMP  1372 

12920  IF  TC(N)  <  I40(N,  I  )  THEN  09  -  TO  (N)  ELSE  09  =  .1 40 < N .  I  ) 

12930  IF  09  T7(I)  THEN  Q9=T7 ( I ) 

.12940  TO.<N)=TO<N>  09 

12990  T7( I >-T7( I  7  -09 

12900  1  40  <  W I  )-I40(N,  I  )  -09 

12970  14.1  <|nL  T  )  -  1 4  V  (N.  I  )  »09 

129B0  IF  I401N,  I)-0  THEN  TO-<N)  =  O 

12930  JMP 1372: NEXT  I 

12000  JMP  137.1:  NEXT  N 

120,10  /*  PRELIMINARY  ASSIGNMENT  CPMI'I  ETE  <■/ 

.12020  /*  CHECK  T0./T7  FOR  NULL  */ 

12C-.30  JMP  1  30  3:  K  1 ,  K2=0 
.12040  FOR  N  =  1  TO  7 
120,90  IF  TO. < l\! 7  >0  THEN  KI“N 
120.00  IF  T7<InI)  -0  THEN  K2=N 
120  70  NEXT  N 

120>RO  IF  K1=0  OR  K2=0  Tlffl'N  ,TMr  7  30.1  /*  MAX  FI  OW  ON  / 

12090  /*  FLOW  NOT  MAX  -  DEVELOP  Al  TFIVNATT  FATHS  */ 

12700  /*  SFT  COUNTERS  */ 
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v127 10  MAT  T13=ZER:MAT  T21*--7ER;MAT  T1R=7ER:MAT  T22" ZER:  MAT  T17--7ER 
12720  T 1 9  <  K  .1  >  -  1 :  LS  =  1 

*12730  IF  TO<Ki  >>T70<2>  THEN  <10  -  T7<l<2>  ELSE  00  =  TG<I<  1  ) 

12740  N1  =  K1:.T3=1 
.1 270*0  T17<K  1  )  -  1 

I127CO  JMPi302:IF  1 40 ( N! , K2 ) <  =0  THEN  JMT13C.7 
12770  IF  I40(N15K1  XOS  THEN  OS  *  I40<W.\5K2> 

12780  T18<LE)-K2;  T22 <  L  E  >  --0S 
12790  GOTO  JMP130S 

1 12800  JMP 1307:  IF  I3>-R  THEN  JMP 5  3S4 
’12810  FOR  I  »  13  TO  7 

.1 282*0  IF  T2.KI)  =  .1  THEN  JMri304  /*  WEXT  1 

j  .12830  IF  1 40 ( N!  ,  I  )  <  =  0  THEN  JMP  1  304 
1.12840  IF  GEO  1 40 < I'll ,  I  )  THEN  OF  -  1 40 < WL  I) 

128EO  T21 < I 1  =  1 

i  128CO  T181LS)  =  I:T22U..S>  =-  OS:  1 1"! :  N2~  .1 
|.12870  IF  L.S<49  THL::N  JMP13E0 
.12880  JMPI3SE:  CA.LI.  “OFFPRIW"  <MARC  CHUNTER  EXCEEDED" ,  1  ) 

12890  GOTO  JMP 100 
.12900  JMP  i  3.E3:  LS=LS  t  1 

12910  GOTD  JMP! 300  /*cn  TO  N  SCAN* . 

.12920  JMP  .1304:  NEXT  I 

129.30  /*  NO  SAT  I  Sr  ACTOR Y  PATH  FROM  N!  */ 

129.40  JMP13E4:IF  LS  =  .1  THEN  JMP13S1 

.129 SO  LS  =  LS  1 

12900  N2  “  T180.S)  M 

12970  II  =  TIROS  11 

12980  OS  =  T22 ( LS • 1 > 

12900  JMT 1 300:  /*  1*1014"  TO  FOR  WARP  N  SCAN  */ 

19000  IF  N2>- 8  THEN  JMP.13E3 

13.J10  FOR  N  a  N2  TO  7 

13020  IF  T19<N)  1  THEN  .IMP  1308 

.13030  IF  14!  (N,  15  )  <>0  THEN  JMP  .1308 

13040  IF  QS>I4i<N,TI>  THEN  OS  =■  .145  <N.  ID 

1 30  SO  T 1 9  <  N )  *=  1 

13000  T18  ( I..S)  aN:  T22<LS)aOSrNXM:  I  3=  1 
13070  IF  LS>--49-  THEN  JMP:i3SFt 
13080  I.S=I.SH 
1.3090  GOTO  JMP!  302 
13100  JI*tP  1308:  NEXT  N 

.13.110  /*  NO  SAT  I  SrAC TfT.’ V  PATH  FROM  II  */ 

13120  JMP!3S3:l.E=LE- 1 
13130  IF  LS  1  THEN  JMP13E1 
13  .140  13  =  T.IP(I.S)  *1 
1 31  SO  N1  =  T  18(1  S  - 1 ) 

13! CO  GS=T22<I  S  5  ) 

13170  GOTO  JMP  .1302 
13180  JMP13S1 :FOR  N  -  1  TO  7 
13190  IF  T6<N)  <-0  TI-CN  JI*tr  .1 3S2 
13300  IF  TI7(N)>0  THEN  JI*1P  1 3S2 


t 


J 
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135.10  K.l  =  N 

1 3520  T17< W) ~1 

.13530  MAT  T1B=7ER:MAT  T19=7FK<;  MAT  T51  =  7ER:  MAT  T55=7ER 

13540  T 1 9  ( K 1  )  =  1 ; N 1 =K  A  t  13=1 

13550  GOTO  JMP1365 

13560  JI»P  1335:  NEXT  N 

13570  GOTO  JMP  136.1 

135B0  JMT1365:/*  CONNECTED  PATH  IN  TIB  */ 

13530  /*  OS  IS  MAX  AVAILABLE  CAPACITY  */ 

13300  T6(I<1>  -  T6(Kl>-<55 
13310  T7(K5>  -  T7<K5)-Q5 
13350  N.l  =  K.t:  1.6-1 

13330  JMP.L373: I40(N1 ,T1B(L6> >  =  J40<N.l , TIRO  6) >05 
13340  .14.1  <N1 ,  T  18(1.6)  >  =  141  <N1 ,  T1B(I  6)  )  *05 
1 3330  IF  L 6=1.6  THEN  .TMTA3C.3 
133C>0  L 6=1.6-*  1 

13370  I41<TiS<L61>5TAB<LG>>=I45  <T1P(I.6  H  JIPtl.F))  O 
.1 3300  I40<T  10(1.6  1  >,T1B<L6>  )  =I4O<T10<L6  1  >  ,T1R(L6A  >  *(5 
13330  N1  =  T1 0(1.6) 

13400  1.6=1. 6+1 
13410  GOTO  JMP  1373 

13450  JMTM365  ; /•**  DISTRIBUTE  FLOWS  */ 

13430  MAT  T7  =  ZER: MAT  145  «  7ER 

.13440  04  5. ,(546=0 

134 SO  FOR  N  =  1  TO  7 

13460  FOR  I  =  1  TO  7 

1 3470  1  4.1  < N,  I )  =  14 .1  ( N,  I  ) *R5 ( N.  T  ) 

134B0  NEXT  I 

13430  T6(N)  =  1 4 ( N r  .1-  1  > 

13SOO  (54 S  ~  (54 S  +  07(N,J  1  )«T4(N,  J  •  1) 

.13510  046  046  ■*  14  (n!  .7-1) 

13S50  NEXT  N 

13530  071  =  045/046 

13540  IF  Z  1*0 "YES"  THEN  .JMPOOOB 

13550  IN.TT  ( 1-IL‘X  ( 50)  >C*J- 

13560  C*  =  “TOUR  MAXIMAL  FLOW  SOLUTION  REACHED’' 
13570  CONVERT  J  TO  STR  ( C*|.}  6,  1  > ,  P IC  < # > 

13600  GHOUL: '  .16 
13530  JMPOOOB: 

136.00  /*  T6  CONTAINS  ACTUAL  FL.OWS  */ 

136.10  /«  COMPUTE  FLOWS  */ 

13650  MAT  IW  =  7  FT: 

13630  MAT  T7  =  ZER: MAT  TO  =  ZER 
13640  FOR  IM  =  1  TO  7 
13650  T13  =  07<N,,T  1  > 

13 GCO  FOR  1=7  TO  A  STEP  1 

1 3670  IF  STR  (  T9*  (I,.I>,  3*N,  3  >  NNN"  711™  JMP 1  370 
13600  IF  DO(I,S10)<=0  THEN  JMP  1 370 
13630  IF  I41(N>I)<»0  THEN  .TMT1370 
13700  CONVERT  STR  <  TOT  ( .1  , .1 ) ,  .1 , 5 )  TO  T5 
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.t 37 1 O  IF  J  »  7  THFN  T3  *  31 1-07<N.  J  1 ) 

13730  DLT«0 

13730  FOR  K  *  1  TO  5 

13740  T14  *  T13  3  *3*t< 

13730  IIN  =  141  <N.  I  )*FA!  (KUDLT 
1 3700  GOGIJB '  5S<T14,T3„ IJN, I, J> 

13770  CP5UB '  ei<T.\4s  JIN,  I,  J,fUO) 

13780  DO  (. T  ,510)  GROUND  <  <DO( I ,510) -C > , 4 ) 

1 3730  14  (  I ,  J )  ~  1 4  ( I ,  .J )  +ROUND<  TO,  4 ) 

13800  I  40  <  N  5  I ) =I40<N.  I )  iQB*T!  4 
13810  143<N,I>  «  1 43  (  N ,  I  >  ♦  08 
1 3030  CONVERT  STR (  TO* < 1 5  J  > , 3+N, 3 >  TO  DO 

13830  CONVERT  <03*  I  NT  <00* ,  5>  >  TO  STR  <  TOT  (T  ,  J '  ,  3*N,  70  ,  P  1  C A  ##U  ) 

13840  TO  ( N )  ~TF  ( Ivl )  •  08 

13080  NFXT  K 

13800  JMP 1370:  N5T XT  I 

13870  /*  CHOCK  UPWARD  DOT  AT).  INC  ■»/ 

13880  IF  Z3-.f  <>  "  YF8"  THEN  JMP 1400 
13830  IF  CV.T  =  O  TIIFN  .TMT1400 
1.3300  IF  TC  <  N )  <  - O  THEN  JMP  .1400 
13310  TC<8)  =  TC(N);TC(N)--0 
13300  GOfjtJO '  <X(TA3,N.  J,S10) 

13330  TC,(N)  *  T0(8> 

13340  JMP 1400: NEXT  N 
1 33 SO  FOR  I  *  1  TO  7 

13300  IF  I  -  1  TURN  TD  *  S  ELSE  TO  ~  1 

13370  LS  *  Or  03  =  0:03  --  O 

13380  FOR  N  ~  1  TD  7 

13330  IF  I401N, I)  <-  O  TURN  JMT1405 

14000  08*08* !40<N, I) 

14010  03=0.7  *  14,7  (N,  T  > 

1 4030  JMP 1 40 1 : NR XT  N 

14030  CONVERT  STR  <  T3tf  < I , J  > ,  1,3)  TO  T3 
14040  IF  08=0  THRN  JMP  1 .338 
140R0  07  (  I ,  J )  =  08/03  •*  TP  -t  TD 
140GO  07  <  I ,  J )  =  R0UIC>(G7(  Tt  J>,0) 

0*070  GOTO  JMP  1330. 

1 4080  JMP  1  338 :  07  (  I ,  J  )  071  +T3  *  TO 

14030  07(1, J)  =  ROUND < 07 ( I, J) ,0) 

14100  JMP 1330: NFXT  I 

14110  /^COMPUTE  01JT  OR  AVIATION4  / 

14130  FOR  W  =  1  TO  7 

14130  IF  T6(N)<-0  Tt-ffTN  JWP1418 

14140  T1  3  *  07  ( N.  J  - 1  ) 

141  SO  CONVERT  STR ( T9* ( 7, J ) . 1 , 3)  TO  T3 
14100  IF  .1=7  THFN  Ti?=31)  «7!N,  J  .1 ) 

14170  GOGUB '  G8(TA3, T3,T0<N> ,3, J) 

14180  GOSIJP'  01  <T13.,TC(N>  ,3,  J,G10) 

14130  OUT  A  ( J )  =OIJT  A  <  J  >  *  G3 

14300  14(7,  J)--I4(7,  J)  *  ROUND  <  13.  4  > 
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14;?  10  .TMT  1415?  NEXT  N 
1 4550  IF  Z ltO" YES"  THEN  .IMP  14  10 
14530  INIT<hf;X(EO)  >C* 

14540  C%  =  -RESULTS  AT  END  TOUR' 

145S0  CONVERT  J  TO  STR<C*,51 5  1  >  ,PIC<*M 
14500  GOSUP'  14< CT- ) 

14570  JMP141P: 

145C0  NEXT  J 
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I 

14300  4**  4!-4‘-4H- 4'  *4* *4*4.  +<-■»• 


1 14310  *  * 

114330  *  ITERATION  COMPLETE,  COMPUTE  REMAT NT NC  REOLIIREMENT  * 

14330  *  AND  DEVELOP  INCREMENTAL  ACCESSION  REQUIREMENT.  * 

14340  *  THIS  IS  IMPLEMENTED  AC  A  TWO  CTACE  PROCESS.  All  * 

114350  *  ACTIVITIES  EXCEPT  "OTHER"  ARE  TESTED  FOR  COMPLETION  * 

114.360  *  IN  THE  FIRST  STAGE.  WHEN  THESE  REOl  UREMENTS  ARE  * 

14370  *  MET  AN  OUTPUT  DISPLAY  IS  GENERATED  AND  THE  PROGRAM  * 

j  14380  *  CAN  THEN  PROCEED  TO  COMPLETE  THE  "OTHER"  REQUIREMENT  * 

I  14390  *  * 


14400  5*4*4:  4*4Mr4:  4*4=  4*4! 

14410  Dr?  -  Or  Sr?  =■  0:T1  =  IP 
1 44c 0  FOR  J  =  1TO  4 
1 4430  FOR  I  =  1  TO  f. 

14440  IF  DO I  I ,  J )  O  O  THEN  .IMP  1400 
144  SO  DO  =  Dr?  -*  DO  <  I ,  J  > 

144GO  Jhn^CO:  NEXT  I 
14470  NEXT  J 

14480  10  =  Dr?/ I R08/ 1 3*11  *5/30)  >  -  1/0) 

.14490  Dr?S=I0 

14500  IF  10  <  1  THEN  JMP 5480 
14510  10  =  lO  4  INVTO<35) 

14530  TSO  =  TSO  4  1 

14530  IF  Z1T  <>  "YES"  THEN  JMR1470 

14540  I NI T  <  HEX  I SO  > ) CT 

14550  CT  =  "END  I  DERATION  ,  NEW  ACCESSIONS" 

1 4500  CONVERT  TSO  TO  STRICT,  1  5.,?  > ,  R  TC  <  ) 

14570  CONVERT  ROUND! DPS,.  5  >  TO  STRUCT-,  59,  S) ,  PTC  <##*,*  ) 

14580  C  A!.  L  "  OFFER  IN"  ICT,  1  ) 

14590  JMP 1 470 r  COSIJP  7  53(10) 

14GOO  GOSUC '  03 
14010  GOSIJC '  07 
140.30  GOTO  ,TMRlir?0 

1  40.30  4HH44!  4r4! 4*.4*4‘4*4j-4H*«  4-4'  4-4*-!r»4*4.-.5*4‘4'.5‘->4‘4*4H'.*.tHr4‘> 


1 40-40  *  4* 
140.50  •»  FIRST  STAFF  REQUIREMENTS  TESTING  COMPLETE,  PEG  IN  * 
14000  *  TESTING  OT  "OTHER"  REOIJI REMENTS.  4* 
14070  *  44 


1  4080  4-4;  4r4:  tH*  5*4*  -}*4:  4*4!  4*4-  4*4- 4l-5f  4*4-4*-:- 

140.90  JMP  1480  :  IF  ZlTO"YES"  THEN  .IMP  1485 
14700  IN.TT (HEX  (PO)  )CT 

14710  STRICT,  .1,37)  *="  ITERATION  ,  ACCESSIONS  ADOrP" 

14730  CONVERT < TSO • T51 >  TO  STRICT,  1  3,  3 ) ,  PIC  (#40 
147.30  CONVERT  ROUND ( 0i?5,  1  )  TO  STRICT,  10,  5) ,  PTC  <#*#.# ) 

14740  I  NIT  (LEX  (FT))  )CT 

14750  STRICT,  1,5?)  =  "AT  E1n!D  OT  ITERATION" 

14700  CONVERT < TSO » T51 )  TO  STRICT, 1 1 , 3> , PIC  I## ) 

14770  STOP  CT 

1 4780  JMP  1485:  IE  TS.t  >  O  OR  7 AT  -  "YES"  THEN  .IMF' 14 90 


I 
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14730  E*  =  “ALL  REOIJIREt'SIKTO  EXCEPT  'OTHER'  COMPLETELY  PILLED" 
14800  STR<E*,GS, 13>  =  *  ITERATIONS  =  * 

14810  CONVERT  T50  TO  STR  IE*.,  78,  ?>  ,PIC <##> 

14800  CALL  "OFFPRIN"  <E*,B> 

14830  JMP1490rS?  =  Or  T1  =  13 
14840  FOR  J  *  1  TO  4 
148  SO  Dr?  *  Dr?  4  DO  ( 7 ,  J ) 

148G0  NEXT  .J 

14870  I0=D?/<R08/<?*<  !•*  1/30)  )  I/O 
14880  DOS- 10 

14830  IF  I0<!  Al'JD  IO<.Oi*DRO  THEN  JMTICOO 
14900  10  =10  4  INVTO<31> 

14910  IF  Zlit  <>  “YES"  THEN  .JMP  1500 
14930  INITtHEX  (r?0>  >C* 

14930  STR<C*, 1,35)  “  ‘OTHER  REQUIREMENTS  REMAINING  *- 
14340  CONVERT  ROUND  <  Dr?,  1  )  TD  STR  ( C*,  3?,  S ) ,  PIC  <  *** .  # ) 

149S0  CALL  ‘OFFPRIN"  <01,1) 

14300  CAI.L  "OFFPRIN"  <C*->8) 

14970  JMTMSOO;  GOBUP'  53<I0) 

14980  TS1  -  7  51  4  1 
14390  GOSIJO '  03 
1SOOO  GOSIJP'  07 
ISO  10  GOTO  JMP i  1  ?0 

1  S0t?0  ■IUMHUMHMHMHHHHH!  If  iMHHHMHMHHr-tHH**-*  **•■«■* 


ISO 30  *  44 
1S040  ■»  REQUIREMENTS  DETERMINATION  IS  COMPLETE.  D I  DPI  AY  * 
1S0S*0  *  OUTPUTS  AND  SELECT  PRINT  OPTION.  AFTER  PRINT  1*1001  \  * 
15000  *  RESETS  IN  PREPARATION  FOR  A  ICW  RUN,  * 
1S070  *  * 


1  5080 

ISO 90  JMT' lOOOr  INI T< HEX  (SO)  )E1 
15100  E*  =  "ALL  REGUT REMEIvJTS  MET" 

1S110  STR<E‘t,  105,  13)  =  ‘ITERATIONS  -  " 

1S180  CONVERT  TOO  TO  STR  ( Fit,  1 18,  r?)  ,  PIC  <## ) 

1  SI  30  STR<E4, 1?0, 1 )  =  "/" 

I S 1 40  CONVERT  TS1  TO  STR <F*, !?! , ?1 , PIC <## ) 

1 51  SO  STR  ( F*,  .1  30,  .1  ) *STR <  TGRTOJP*,  I S,  1  ) 

151CO  IF  Z4,X=“ YES"  THEN  STRIFE,  43,  40)  -  FI1T 
I  SI 70  CALL  "OFFPRIN”  8) 

15180  IF  MM5  THEN  JMP1G10 

1S190  PTR < At ( M, 1 ) )  -  PTRIA.l  <1*1,,  1  )  )  4  1NVT(P.3I) 

15?0C  PTR<A1 <M, 1 >47)  *  PTR < At <M, 1 ) *7)  4  ACCi 
15?10  GOTO  JMP1G11 

15i?20  JMP  1C*  10:  PTR <  Al  ( M  IS.,?)  )  -  PTR< Al <M  i 5,P> >  4  INVT(R,?1  ) 

1S.330  PTR<A1  (M  IS,?)  47)  -  PTR  <  A)  ( M  1 S.,  ? )  •  7 )  ■*  ACCI 

1 5?  40  JMP1G1 1  :  IF  MlrlS  TI-ITN  MAT  TOT  *  TOTN  FIFE  MAT  TOT  *  TO!  A 

IS? SO  FOR  1*1  TO  9 

15? GO  IF  I  «  H  THEN  JMP 1 GOT 

1  5?70  IF  I  <8  THEN  K  =  I  ELSE  l<--B 

1 S?BO  FOR  J  -  1  TO  ROUND! PRD4/1?- 1,0) 
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SECTION  VI:  ITERATION  CUT.CK  ROUTINES 


I 5*?30  TDT<K5I)  -  TOT(K,l)  +  INVT<ISJ> 

15300  NEXT  J 

15310  FOR  J  =  R0UWHPR04/lr?,0>  TO  ROUND < PROS/ 1 E -1 ,  O) 
153E0  TOT  <K;E)  =  TOT  ( K ,  E  >  4  INVT<I,.J> 

153.30  NEXT  J 

15340  FOR  J  ■  R0Uhr><PRnr./1E,0>  TO  30 
15350  TOT  <  K ,  3  >  TOT  ( l<  5  3)  •  I NVT  (  I ,  J ) 

15300  NEXT  ,J 
15370  JMT 1603: NEXT  I 

15380  IF  M.  15  TI-TN  MAT  TOTN  =  TOT  PISE  MAT  TOTA  =  TOT 

15330  MAT  DO  =  7FR 

15400  MAT  04  =  ZER 

15410  MAT  INVTO  *  ZER 

15400  MAT  I  NVT  =  ZER 

15430  MAT  037  =  ZEE 

15440  MAT  OUT A  -  7ER 

15450  MAT  14  -  7FR 

15460  MAT  07  =  ZER 

15470  FOR  J  =  1  TO  7 

1 5480  FOE  I  =  1  TO  7 

1 5430  T3T  <  I ,  J  >  =  T  1 OT  <  I ,  J ) 

15500  NEXT  I 
15510  NEXT  J 
15530  FOR  1  =  1  TO  DO 

1 5530  TS  (I  > ,  T6  <  I  > ,  T7  <  I  > ,  TR  <  I  ) ,  T  t  5  <  J  > ,.  T  J  7  <  T  >  ,  T  J  P  <  T  l  -O 
15540  NEXT  I 

15550  STR<T3T<  1  ,  1  ),  1,8)  =  "30' 

15560  STR < T3!t <  1 .  ? > .  !,,?>  =  "30“ 

15570  T50= 1 : T51 =0? R01 =0 

15530  IF  ZHO "YE 5"  THEN  JMP1050 

15530  STR<TGROUP*, 15, 1 >  =  "#M 

1 5-600  JMP  1630:  NEXT  15 

1 50' 10  JMT 1640: NEXT  14 

156DO  CALL.  ■OTFPRIIM"  <  EM?  ,  3 ) 

1 5630  SELECT  CRT 

15640  6DSUD '  BE 

150.50  JMP  1650:  GOTO  JMP  100 
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SECTION  VII:  SUBROUTINES 


1  5670 

i  sc.no  *  * 

isooo  *  si  ^routines  * 

15700  *  * 

15730  *  * 

1 5740  *  #14  -  THIS  SUBROUTINE  PROVTPTS  ACCESS  TO  Tt  IF  * 

15750  *  in-process  monitor  displays  in  response  * 

15760  *  TO  TEMPORARILY  INSERTED  STOPS.  - 

1 5770  *  * 

15790  DEFFN ‘  14(C1> 

15800  INI T( HEX (00) >X* 

15810  STR  (XT,  1 , 05 )  =•  STR(CT,  1 ,05) 

15800  STR  (XT-,  08.  9)  "  ■  ITERATION" 

15830  CONVERT  T50  TO  STR ( XT. 38, P> 5 PIC (## ) 

15840  CALL  "OFFPRIW  (XT,  1  ) 

15850  RETURN 


* 


SECTION  vn:  SUBROUTINES 


I 

^i£870  «-»«»{'«  *#  ##  r-  V  t‘ 

1 5880  *  ^ 

115890  *  #10  -  THIS  SUBROUTINE  PROVIDES  PRINTS  OT  TUT  SOURCE.  ->l 

15900  *  INTER  TOUTS  AIMS  SINK  FLOWS.  SET  Ur  TOR  THE  -•• 

15910  *  MAXIMAL  FLOW  ALGORITHM.  NEEDS  TO, 140, 141 t T7,  * 

,15920  *  * 

159 AO  OFTEN'  IS 
15950  SELECT  PRINTER 
115900  PRINT  PACE 
15970  PRINT  SKIP  (5)  j TAB <  AO)  ;  CS- 

15980  PRINT  Sl<  I P  <  5  > ;  T  AO  <  1 1  > ;  "  SOI.IRCE  •  ;  TAO  <  F-0  > ;  -  FORWARD  FI.  OWE.-"  \  T  AC  <  95  > 
1 5990  PRINT  "SINK* 

10000  PRINT  TAD< 50 REVERSE  FI  OWE"  ;  Sl<  IP  <  P ) 

.100.10  FOR  P  =  1  TO  7 
10020  PRINT  TAPIR); 

10030  PRINT  US  I  WO  PRTCAR )  5..  T0< P  >  ; 

1C040  pr  Unit  tap  <20 ; 

10050  FOR  O  =  1  TO  7 

16000  PRINT  l  IS  I  NO  PRTCAR.1  5..  IAO(P.  0) : 

1  £0)70  NEXT  O 
10080  PRINT  TABOO); 

10090  PRINT  USING  PRTCAR 1 5, T7 < P ) 

10100  PRINT  TAP < 20 ) ; 

10.110  FOR  0=1  TO  7 

10.120  PRINT  US  I  NO  PRTCAR'.  5.  I41<r,G): 

10130  NEXT  G 

101  AO  PRINT  SKIP (2) 

10150  PRTCAR  1  5;  FMT  XX  <  3  )  ,  P  I C  ( #tt#.  #  )  ,  XX  (  2 ) 

10100  NEXT  P 
.10170  SELECT  CRT 
.10180  RETURN 
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SECTION  VJI:  SUBROUTINES 


16*300  ********«■*««  •!:■*«■*«*«*#«  ■»*««*«««***■»•«**<«*«***« 


16.P10  *  * 

ie*?oo  *  #s.i  -  this  subroutine  resets  go.  si  and  ai  in  responsf  * 

1£«?30  *  TO  FORCE  I..FVEI.  CHANGES.  Y-\  CHANCES  A  COMPLETE  * 

16VP40  *  CARR  IER  AIR  WING.  Y>1  CHANCES  El  m  COMMON  TTY  +1 

16*360  *  Y-l.  * 

ie*?60  *  * 


1  Cv?70  ■*»*  * -i- -t- *■»* -»r  -Jr  ^  V-it  <* 

16P80  DEFFN '  5.1  <Y) 

16,330  MAT  T5  -  7F.R 

16300  IF  Y> 1  THEN  JMP5.150 

16310  A  -  S 1  (  1 5 ,  .1  ) /GO (IS* 13) 

163P0  FOR  PI  =  1  TO  .14 

16330  IF  A1  I P  .1 5  5)  -O  THEN  .IMP SI  SO 

16340  FOR  01  ='3  TO  IP  STEP  3 

16350  G0(P1 ,0.1  >  =  ROUND(GO(Fi  ,01  >*A.  O) 

16360  NEXT  0.1 

16370  SI (PI, 1 )-ROHND(Sl (Pi, 1 >*A.O> 

1 63B0  G0(P.l,  13)  - Si  (P.1,  1  ) 

16330  TS(l)  -  T5(  .1  )  +  AKP1.3) 

1  €-400  T5(P)  =  T5 ( 1? >  -*  A 1  ( P 1 , 6 ) 

164.10  TS(A.l  (P3  ,  1 )  »P)  =  T5(  AMP1 ,  1  ) -»P)  <  AKP.1,4) 

164.30  IF  A.l  <  P  1 ,  P>  >0  THEN  T  5  <  A 1  (PI  .  P  >  t  P  >  =  TS(  A1.  (PI  ,  P >  t  P  1  -t  A1  (PI  .7) 
16430  .7MF5.13P:  NFXT  PI 

16440  FOR  01  =  1  TO  3 
16-450  T5 ( 01  )  =  1+  (A-  1  )*T5(0i  > 

16-460  NFXT  0.1 

1 6470  FOR  Pj  -  .1  TO  14 

16*480  IP  A.l  < P 1 , 5 > >0  THFN  JMF5133 

16*430  A 1  ( P 1 , 3 )  *  ROUND ( AM  P 1 , 3 )  /T5  (1  ) ,  4 ) 

16500  A1(P  1,6)  -  ROUND (A1  (Pi  ,  6) /Tr.(  P  )  '4) 

.16510  AKP.1,4)  -  ROUND(A!  (PI  ,4>/Tc.<AMri ,  1  HP)  ,4) 

16500  IF  A.l  <  P  1  ,?)  >0  THEN  A1  (PI, 7)  «  R  OUN!  T  <  A 1  ( P 1 , 7 )  /  T  S  ( A  M  P 1  .  P )  +  P 1 , 4  1 
16530  GOTO  .IMF'S  134 

16540  JMT513.3:  Ai  (Pi  ,  3)  -  ROUND ( A*A1  ( P 1 , 3 > /T5 (  1  1 , 4  ) 

165F6)  A 1  ( P 1 , 6  )  «  ROUND (A*A1  (Pi,  6)  /T5(P)  ,4  1 

16560  AKP.1,4)  =  ROUND  (A*  A 1  (P1,4)/T5(A1  (P'>  ,  1  )  IP),  4) 

16570  IE  At  <  P 1 ,  P  >  >0  TI-fZN  Al(Pi,7>  =  RDUNTM  A*AM  F 1 , 7) /T5<  AM  T  1  .  P  )  ■*  P  >  ,4  ) 
16650  JMT5134: NEXT  PI 
16530  RETURN 

166-00  JMP51 50: A~S5 (Y- 1, 1 ) /GO(Y  1, 13) 

16610  FOR  01  *  3  TO  IP  STEP  3 

166.30  GO(Y  .1,01)  =  ROLWP(GO(Y- 1,0.1  >*A.  O) 

166-30  NFXT  01 

166.40  FOR  P  i  =  .1  TO  14 
16650  IF  P 1 =Y  1  THEN  JMPSIFI 

166.60  Al  (PI ,  3)  *  ROUND (Al  (P.l,3>/(  K  (A  1  )<;AU Y  1 , 3 >  )  ,  4 ) 

1 66.70  A.l  ( P 1 , 6 )  =  ROUND  (  Al  ( P 1 , 6)  /  (  M  ( A  1  )*At  ( Y  -  1 , 6 )  ) ,  4  ) 

166.80  IF  Al  (PI,  1  )  <5  A.l  (Yl ,  1  )  Ti  ITN  JMT516) 
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1 C-690  Al(Pl^)  ~  ROUND  <  A  A  (PI  ,  4  )  /  <  A  •*  <  A  A  )*AA  <  Y  A  ,  4  >  >  ,  4 ) 
16700  JMT6A61:  IF  A1  <P1 ,  i?)  <>A1  <  Y  1,0)  THEN  JICS.AG.? 

.16710  A1  (PI  ,7)  -  ROUND ( At  (Pi  ,  7 > /  (  1  ■*  < /v  1  )*A1  <  V  1  , 7  )  >  5  4  i 
I 167S0  JMPS1€£;  IE  At  <  Y-l  5  S)~0  THEN  .TIC'S A 61 
16730  A1  (PI,  5)  =  ROUND  ( At  ( P 1 ,  E<>  /  (  A  ■*  ( A  1  )  *A1  <  Y  !,£>>, 4) 
1&7W  A1(P1,8)  «•  ROUND (A1  <Pi,B>/(  H  (A  1  )*A1  (Y -1  ,8)  ).4> 

I  167  SO  JMPS'IC.3:  GOTO  .IMPS!  Si? 
f  16760  JMPSASl:rOR  CIA  =  3  TO  8 

16770  A1 <P1,0A )  =  ROUND < A! (PA ,01)*A/ ( H (A  1 >*AA ( P A , OA ) > , 4 > 
|  167B0  NEXT  OA 
*  16790  JMTS1S»?:NEXT  PA 
16800  RETURN 


SECTION  VII:  SUBROUTINES 


1 6830  *  * 
16-840  *  #53  -  THIS  SUBROUTINE  COMPUTES  THE  ENTRIES  TOR  -tL 
164350  *  LOS  CEI1.S  IN  INVTO  RESULTING  FROM  10  * 
16864)  *  ACCESSIONS  * 
16870  *  NOTE:  R0<T3>  IS  THE  RATIO  OT  THE  NUMBER  * 
16830  *  AT  THE  END  OS  YEAR  T3  TO  THAT  AT  THE  * 
16890  *  END  OT  YEAR  T3  J.  RO <  \  ) ~YR  1  /  ACC .  THE  •»• 
16900  *  INVENTORY  IN  YEAR  T3  IS  THE  ARE/.  HOT  * 
16910  *  THE  DISTRIBUTION  CURVE  IN  THE  YEAR  T3. 

1 69.70  *  *• 


i  16930  *■  if  •)-  i-  V  i-  -P-- 

{  16940  DEFFN'  53(10) 

‘  16950  H  =  10 

f  169CO  FOR  P  -  A  TO  30 

16370  INVTO(F)  -  H*  <  1  *RO<P  )  )  /.? 

16380  H  =  H"R0(P> 

16990  NFXT  P 

,  17000  INVTOl  31  >  =  10 

17010  MAT  INVT  -  ZER:Q76  =  O 
170,70  FOT;  P  =  1  TO  3.1 
170.30  INVT  ( 8S  P  )  =  INVTO(P) 

17040  NEXT  P 

17050  FDR  P  *  ?  TO  30 

17060  076  =  076  +  INVT < 8, P • I >  -  INVT(B.P) 

17070  NEXT  P 
17080  RETURN 


SECTION  VII:  SUBROUTINES 


17100  *HH»**^#<MH»^*^<HHHH*<HHH»******#*IH^Ir«-lH‘***4HM»**4J*«****-**'«»»:-* 


17110  *  •» 
17100  *  #55  -  Tins  SUBROUTINE  ACCEPTS  START  TIME  (TI),  * 
17130  *  TOUR  LENGTH  (TO),  START  PLOW  (10),  ■* 
171  40  *  DESTINATION  ACTIVITY  (A),  AND  TOUR  NUMBER  * 
17150  *  (B).  IT  PRODUCES  THE  VALUE  OT  THE  * 
171 GO  *  DESTINATION  REQUIREMENT  MET  <C)  AND  Or  THE  ^ 
17170  *  DESTINATION  REQUIREMENT  INCREMENT  •«  TRANE I ENT  * 
17180  *  REQUIREMENTS  (CO),  THE  DISTRIBUTION  OR  CO  DY  * 
17190  *  YEAR  IS  GIVEN  IN  TP<  >.  * 
1 7000  *  * 


17?  10  4Hr4r4MHHH44MHMHMr4f4H-  *  4Mr4V4HHHr-K  4Hr4r*  4V4r4f*  4MH! 

17/700  DEFEN-’  55 < T 1 ,  TO,  I O,  A,  B  ) 

17/730  C,  C? ,  1/7  =  O 
1 7/7 AO  IF  10  =  O  THEN  RETURN 
1 7/750  MAT  T8  =  ZER 
170C-0  L.  =  1 

17070  Tl  =  ROUND! T1 ,0)  :  TO  =  ROUND! TP,  0) 

17080  T.10  =  T 1/1/7  :  T3  -  INT(TIOM) 

1 7/790  /«  COMPUTE  TRANSIENT  TIME  */ 

17300  T 4  -  1 

17310  IE  A  =  1  AND  B  <  3  THEN  ta  =  7 
17330  IF  A  =  1  AND  E  0  THEN  T4  -  5 
17330  /*  COMTUTE  CO  */ 

17340  T/30  =  ( T/3-t  T4  > / IP 

17350  K 1  =  (T3-T10)  *  (l-RO(T3>) 

17300  H  =  10  *  (l-K.l) 

17370  T8 ( L  +  1  )  =  ((IOtlU/,7)  *  (T3-T10) 

17380  CP  =  CI3TBUU  1  ) 

17390  TOO  =  TOO  (T3T10) 

17400  IE  T20  <-  O  THEN  .IMP, 73  /*  SHORT  FIRST  ENTRY  */ 

17410  JMP01  :  L  =  Lol  ;  T3  =  T3  > 1 

17430  IF  T30  <=  1  THEN  JMP/73  /*  CO  TO  LAST  ENTTO'  *V 

17430  TB(L-U)  =  H  *  (URO<T 3))/? 

17440  H  =  H  *  R 0 ( T 3 / 

17450  C3  C/7  +  TP  ( I.  •*  5  ) 

1 7400  T30  =■  TOO  1 
17470  GO  TO  JMT/7.1 

17480  JMTP3  :  K 1  =  TOO  *•  (l-RO(T3)>  /*  CREATE  LAS!  TUTEY 

17490  TB  <  I.  4  1  )  =  H  *  (  (31(1  )  /3  >  «  TOO 
17500  C3  =  CO  4  TB(LEl) 

.1 7 5 1 0  T8(  1  )  "  L. 

.17530  13  -  H  *  <  1  -  K 1  ) 

17530  GO  TO  JMP/74 

17540  JMT33  :  TOO  =  TOO  -  (TO  T10)  /*  SUORI  EIRST  IIL  k V  +■  ■■ 

17550  K 1  =  K1  *  (1 -TOO) /(T3  T10> 

175CO  TB(I_4  1  >  =  TBU.d)  -  ( IT5-  (0  !<!)/<  PJ:  <  1  -l<  \  )  )  )H  (  (TI  TiO)  100) 

17570  CO  *  T8(L+1 ) 

17580  10  =  H/( 1-K1 > 


SECTION  VII:  SUP ROUT INTO 

17530  JMTE4  :  /*  COMPUTE  C  */ 

17600  T3  =  INT(T10+i> 

17610  IF  T  4  / 1  <?  >  (T3-T10)  THEN  JMTP 
176r?0  K 1  -  <T4/1P>  *  <  1  - RO < T3 )  > 
17630  C  =  (10  *  (?K1)/P)  *  (T4/1P1 
17640  GO  TO  JMPPf. 

17650  JMPP5  :  C  =  TB  ( T2 ) 

1 7  6  CO  K  .1  =  (T3T10)  *  <1-R0(T3)> 
17670  H  -  10  *  ( 1  -l<  1  > 

17680  T 4  =  <  T 4/ 1 1? )  -(T3-T10) 

.17630  T3  <=  T3H 

17700  K 1  =  T 4  *  ( 1  - RO  <  T3  > ) 

17710  C  =  C+(H*  (P--K1  >/2>  *  T4 
177P0  JMT06  :  C  =  CO  -C 
17730  RETURN 
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177SO  ##*!H>***^****<MHMr*<HMr**-#4r*-K***4«HM‘4*4*  •»****•»•»•#«■»}••»«;•«•* IfiHHHHf* 


.  177C--0  *  *■ 

117770  *  #00  -  THIS  SUBROUTINE  CAI  CHLATFS  THE  CORRECT  FI.OW  -*l 

17780  *  TO  PROEFSEIONAI  EDUCATION  (ACTIVITY  0>,  * 

17730  *  NEEDS  START  TIME  <Ti>,  TOUR  I  JINGTH  (T3>,  * 

|  17800  *  INPUT  FL.W  (PI),  TOUR  NLWBER  <J)  AND  SOURCE  * 

17810  *  ACTIVITY  (N).  OUTPUTS  ARE  IDENTICAL  TO  * 

17830  *  SUBROUTINE  #rc,/#0A ,  «• 

.  17030  *  * 


I  .1  7840  *  •»*•*  *-*!  <M:  ***■#«■#  4*««4:  *  *  OMr*  •»>•*» 

.1 7 8 CO  OrEEN  f -O  <  T  A  ,  T3 ,  P  A  ,  ,T ,  N  > 

17800  C , 03, 13=0 
I  .17870  IE  PI  =  0  THEN  RETURN 
17880  IF  D0<  f , SAO '  '>  O  THEN  DLT  =  PI  ELSE  .IMP  70  A 
17830  GOTO  JME713 

17300  JMP704: GOSUC'  SG ( T1 , T3„ PI , 0, J ) 

17310  GOSI.ru  €•(  ( T 5  ,  PR  O,  ,I,S)0) 

17330  /*  C,  C3,  13,  08,  T8(  >  SCALED:  I  ,DI.  T  AVAILABLE*/ 

17330  IE  08  =  O  THEN  Dl.T  =  Pi  ELSE  .IMP7.1  1 
17340  GOTO  .IMP 7. 13 

173r.O  .IMT'711:T3  =  T 1/13: TOO  =  (T3H>/13UT  =  A 

173CO  MAT  T17  =  T8 

17370  MAT  T8  =  7 E R 

17380  IE  T30  <  1  THEN  .TMT‘700 

17330  TO  (  1  )  =-  (  INT(T.3i  1  )  T"J>*  T3 

18000  T30  =  T30  ••  (  INT  (T3  >  1  )  T3) 

18010  JMT70E:l.  1  =  LI  A 
A  8030  IE  T30  <  A  TI-CN  ,W  700 
18030  TOO. A)  =  13 
18040  T30  =  T  30  -  .1 
18030  GOTO  JMP70S 
18000  JMP700:  T8 (LA  )  =  T20*I3 
18070  FOR  R  =  .1  TO  L 
A  8080  T  A  7 ( R )  =  T 1 7 ( R )  -  T  8 ( R ) 

18030  INVT  (0,  INT  (T3'R>  )  =  INVT < O, INT ( T7i R ) >  ■*  T8(R) 

18100  INVT  (8,  INT  ( T3«  R  )  )  =  INVT  (8.  INT  (T3'R  )  >  -  TF<(R> 

.181  10  TP  <  R  )  =  T  .1 7  <  R  ) 

18130  NEXT  R 

.18.130  K4  =  C:KS  =  03 

18140  C3  =  IB*(T3»  A  >/iOtC  =  I3*T2/13 

181  SO  K4  =  K4  -  CtKE  =  KS  -  C3 

181  GO  IF  K4<  =0  THEN  DI.T=Pi  ELSE  JMP75  0 

1 B  A  70  GOTO  JMP713 

18A80  JMT710rGO  =  0:08  =  O 

18130  IF  D0(3,SA0M00(3,SA0)  <=  O  THEN  TMP707 

18300  IF  <  DO  ( 3 ,  S  A  O  >  <  =0  OF:  STR  (  T3*  ( 3,  .T  ) ,  3*N.  3 )  r  ••  |v0\in"  )  THEN  J  ME  70S 
18310  00  =  1/0 

18330  IF  D0(3,SA0)  <K4*00  THEN  00  =  (00(3,  SAG)/  (l<4*00)  1*00 
1 8330  FOR  R  =  1  TO  ). 
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.18240  INVT  ( 2,  I  NT  ( T3  i  R )  >  -  INVT  <2,  .TNT  ( T3  <  R  >  >  4  T17(R>*00 
1  8250  T8(R>  -  T8  ( R  >  ■  T 1 7  <  R  )  *QC> 

18200  NEXT  R 

18270  CONVERT  STR(T3f  <2,  J) ,  3*N,  3)  TD  Or? 

18280  DO  =  D«?  4  K£*GC 

.1 8200  CONVERT  IWT<D,?4 , 5>  TO  STR  <  T9*  <  2,  J )  5  3*N,  7 ) ;  P I C  < ###  ) 

18300  D0<2; S10)  =  00(2, SIO)  -  K4*G5 
18310  JMP70B: 

18320  IF  <D0  ( 3>  BIO >  <-  O  OR  STR  (  T3“fc  <  3.,  J  > ,  3*VJ,  3>  =  "NNN" >  THEN  JMP707 
18330  08  =  1/2  -  GO- 

18340  IF  DO(3,,SAO>  <  l<4-»K?B  THEN  08  =  <  DO  (  3.  SI  O )  /  ( K4*0B )  )  *08 
18380  FOR  R  -  1  TO  I. 

18300  INVT  (3,  IIMT(T3+R)  >  =  INVT  (  3.  INT  ( T3  .  R  )  >  4  TA7(R)*08 
18370  T8 < R  )  =  T8(R)  T.\7<R>*00 
18380  NEXT  R 

1 8330  C ONAGER T  STR  <T3*<  3,  .1) ,  3*N.  3)  TO  Dr? 

18400  Dr?  =  Dr?  +  HE >-08 

18410  CONVERT  INT  <02  +  ,  5)  TO  STR  <  T3$  <  3,  J  >  ,  3*N.  3>,PJC<#1MO 
184r?0  00(3,  SIO)  =  00(3,,  SIO)  -  K4*G8 
18430  JMr707:K3  =  K4  -  '  K'i*  (Of,  *08  > 

1 8440  QG  =1-00-08 

1 84 SO  IF  (D0(  7,  SIO)  <-0  OR  STR  <  T3* ( 7 ,  J  > ,  3*N,  3 >  -= " NNN"  )  THEM  JMP70? 
.18400  IF  DO  <  7 5  S A O )  <K 4->r0C.  THEN  Of.  =  (00(7,  SIO)  •'  <K4-*0f.)  >*GG 
18470  FOR  R  =  1  TO  L 

18480  IIWT  <  7,  INT(T3iR)  >  =  I  N\>T  (  7,  INT  (  T3  ••  R  )  )  4  TA7<R)*G0 
18430  T8(R)  =  T8(R)  TA7<R>*00 

18SOO  INVT<8>  INT<T3*R>>  ~  INVT  (  P,  INT  (  T3  +  R  )  )  -  T  A  7  <  R  )  +  T  2  <  R  ) 

18SA0  NEXT  R 

18520  CONVERT  STR  ( T?T  ( 7  r  .T )  5  3*N,  3 )  TO  02 

185.30  02  -  02  4  «5->l0C. 

18540  CONVERT  INT(Dr?t,5)  TO  STR  <  T3*(  75  .T ) ,  3*N.  3 ) ,  P  TC  ( > 

18550  DO (7,  SIO)  =  D0(7,S10)  K4+O0 

18SGO  K3  =  K4  -  K4*Q0  K3 

18570  JMP703:  OAJTA ( J )  ~  OUTA(.T)  4  K3-MKS/K4) 

.18580  FOR  R  =  1  TO  I. 

18530  IF  INVT  ( 8,.  I  NT  <  T3+R  )  )  <0  THEN  JMPG010 

18000  IF  INVT  <8.,  I  NT  (  T3 1  R  >  )  <T8  <  R  )  THEN  OUTA(.J)  =  OHTA(J)  -(T8(R)- 
1BC10  INVTAB,  INT(T3-tR)  )  ) 

180.20  IF  INVT  <  8  j  I  NT  <  T3  •  R  )  )  <TB ( R  )  THEN  T8(FO  -  INVT  ( 8,  INT  (  T3  i  R  )  ) 

18030  INVT(8,  INT  (  T3  *  R  )  >-ROI.INT>(  JNVTAB.,  INT(T?tR)  )  TS(R>  ,0) 

18040  IWT(3,  INT  <  T3  •  R  )  > -ROUND <  IWVTO|  INTOBiR)  )  t  TB  <  R  ) .,  O ) 

1 BO SO  GOTO  JMTGOll 

1800.0  JMPGOAO:  INVT <8,  INT  (  T3  *  R  )  )--0 

18070  OUT  A ( J  >  =  OUTA(J)  -  T8(R) 

180-80  JMPGOl 1  :  NEXT  R 

180.30  OUTA(.J)  =  ROUND  <  01  .IT  A  (J)  .4) 

18700  RETURN 

18710  JMP713: C  =  O: 12  =  0:C2  -  O 
18720  RETURN 


B-44 


I 

SECTION  VII:  SUBROUTINES 

£ 


|187EO  *  * 

§18760  *  #61  -  THIS  SUrjRDUTINE  CI-rCKS  INPUT  A0ATN6T  * 

18770  *  REQUIREMENTS  D0<  )  AND  INVENTORY  1WVT<  >,  * 

18780  *  AND  ADJUSTS  TO  STAY  WITHIN  LIMITS.  NEEDS  * 

1 1 8730  *  START  TIME  <T1>,  INPUT! TO),  OEST I  NAT  I  ON  * 

f  18800  *  (I),  DESTINATION  TOUR  NUMBER  <  ,T  I  AND  * 

18810  *  REQUIREMENTS  COLUMN  INDEX  (SlOO).  TB (  ) .  C ,  CO  * 

1  18800  *  AND  IE  ARE  FROM  SUDROUTTNE  #66.  * 

I  18830  *  * 


,18860  DErrivT  61  (Tl.  10,  I,  .T,S.)00> 

| 18860  IF  10  =  O  THEN  RETURN 
1 8870  L.  -  TB  <  1  > 

18880  06  =  1 
I  18800  Q8  -  10 
18300  FOR  R  =  1  TO  I. 

1B310  T8(R  >  =  T 8 ( R ■*  i  ) 

18900  NEXT  R 

183.30  T8(E-H)  =  O 

18340  IF  I  -3  THEN  JMP7EE 

183 SO  IF  ,T<3  AND  I  -  6  THEN  CS  -  IPMTP/10)  ELSE  C.S  =  C 

18360  IE  CS  <=  DO <  I ,  S 1 00 )  THEN  .TMETEE 

18370  06  ~  DO < I ,  S.l OO ) /CS 

18380  EOT;  R  =  1  TD  L 

18330  T8(R)  =  06*T8!R) 

13000  NEXT  R 
13010  C  =  C+'QC 
13000  CD  *  C0*Q6 
13030  ID  -  10*06 
13040  «8  *  08*06 
13060  16  "  10*06 

19060  .JMP766:  06  «  !  :  04 E  «  0:046  --  OrMAT  TPS  -  7rR 

13070  IF  J < .3  AND  1^6  THEN  JMT706 

13080  FDR  R  =  1  TD  L 

13030  IF  T8  <  R )  -  O  THEN  JMT7E3 

13100  IF  T8<R)  <=  TNT<  IWTI8,  TNT<T1/1P>  if<  )  «)  )  THEN  JMP763 
131 10  FOR  P  .1  TD  L 

19100  IF  INVT<8,  IlNfT(Tl/5r:upK0  THEN  INVT  <  8 ,  I  NT  <  T  .1  / 1 0  >  *  P  >  ~0 
13130  046  =  046  *  INVT < P, INT ( T1 / IP) »P ) 

13140  04C.  =  046  )  TF:(P) 

,  131 60  IF  INVT  <8.,  INT !T1 / 10) *P ) >= T8 ! P >  THEN  JMT761 
13160  TOO<P)  =  78<P)  -  INVT<8.  TNT!T)/JO) »P> 

13170  I NVT  (  I ,  INT(T1/1P)  +P1MWVT!  I , INT <T 1 / 1 0 >  »P ) »  INVT  (8,  1  NT  <  T )  .M  T  i  » P  t 
19180  I  NVT  ( 8 I  NT  <  T 1  / 1 0  >  » P  )  =  O 
!  13130  GOTO  JMP7CP 

!  13POO  JMP761 :  INVT  <  1 5  INT  ( T!  /  IP)  *  V  )  -  I  NVT  <  1 5  I  NT  ( T 5  /IP)  i  P  i  i  T8  ( P ) 

13010  INVT<8.  INT!T1/10>  *P)  =  IWVT!8.  INT < T 1 / 5 0 ) * P )  TP(P) 

,  1 3000  JMP760;  IF  INVT  (8,  INT(T1  /10HP)  <0  THEN  INVT ( 8.  INT < T1  / 1  P )  -»P  ) -O 


I 


B-4  3 


SECTION  V.TJ;  SUBROUTINES 

13P30  NEXT  P 

13P40  FOR  P  =  1  TO  L 

13P30  IF  TPP<P)<=0  THEN  JMP7G3 

13700  FOR  O  -  1  TO  L 

13770  IF  INVT<B,  INT  <  Ti  / 12  MO)  <=0  THtTW  JMT704 
13PB0  IF  TPP(F  )  <=INVT  ( P.&  I  NT  (T1/1PXG)  Tlf'N  JMP7O0 

13P30  I NVT  ( I ,  INT  ( T 1  / 1  P  )  t  O  >  - 1 NVT  <  I  ,  I  NT  <  T .1  /  J  ,7  )  *  0  >  ■«  INVT  ( B ,  I  NT  ( T  5  / 1  r? )  i  0 
13300  TPP<P)=TPP<P>  -  INVT<B, INT < Tl / 1 P ) h 0 > 

13310  I  NVT  ( B,  INT  <  T 1  / 1 P  >  ■*  O  >  ”  0 
13320  GOTO  JI4P7G4 

13330  JMP7C.Fr  INVT<  I ,  I  NT  <  T 1  / 1 P 1  •  O )  ”  T  NVT  C I ,  INTI  Ti  /  IP  )•«)-»  TPP<  P  > 

13340  .INVT  (  Bj,  INT (Tl  f  IP  >  » O )  =  INVT<  B.,  T  ITT  <  T 1  /  1/7  >  4  O )  •  TPP  <  P  l 

13330  TPP  <  P  )  -  O 

13300  GOTO  JI4P703 

13370  JMP704;NFXT  O 

133B0  .TMP7C3:  NEXT  P 

13330  IF  043<O40  TURN  00=040/040 

13400  GOTO  JMP700 

13410  JMP7S3;  NEXT  R 

13470  FOR  P  -  1  TH  I. 

13430  INVT(  I,  INT<T1/1P>+P>=TNVT<  J  5  I  ITT  <  T 1  / 1  P 1  •*  T  )  t  TB  <  T  ) 

1 3440  I  NVT  (  8.  INT  ( Tl  /  IP  >  i  P  )  =  INVT  <  P-[  INT  <  Tl  /  \  P )  i  P  )  TF<  ( P  ) 

134PO  NEXT  f’ 

13400  JMT700:C  =  ROUND  ( C*00,,  4 ) 

13470  CP  =  ROUND <07*00,  4) 

134B0  IP  =  ROI.ND<  17*00.,  4) 

13430  OB  =  ROUND (0B*00V 41 
13300  Dl.T  *R0IJND(I0-0B,4> 

130.10  10  =  10*00 
13SP0  FOR  P  =  1  TO  I. 

13330  INVT  (  I ,  INT  <T1/17)*P>  =  ROI  IMP  <  INVT<  I ,  I  ITT  <  T  l  /IPUP  )  ?  41 
13340  INVT  ( B,  INT<Tl/17)tPl=R0UND<  TNVT<F..  INT  <  T 1  /  IP  >•* T  >  '  4  ) 

13330  IF  INVT  <  S I  NT  <  T 1  / )  P )  ••  P  )  <0  Tl  U7IV  INVT  <  B,  INT  <  T 1  /  S  P  1  t  P  > -0 
1 3300  NEXT  F 

13370  IF  I>P  THETH  JhlTOlPO 
133B0  IF  I  =  i  AND  NOP  THTN  JMP01P0 
13330  074  =  074 t 10 
13f.OO  JMT01P0:  RPTI  FTN 
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I 

13620  *****************************************************  #*«#.#**■*****%  * 
*13030  * 

|\9C.40  *  #63  ~  THIS  SURROI.IT INF  IS  USED  TO  Cl  FAR  TI  B"  SCREEN 

'  136S0  *  AND  RESET  FOR  PERIODS  Wl  IEN  TIE  PR  OCR  Al«1  IS 

13660  *  RUNNING. 

119670  * 

13680  ft***  ****«!  Jr* 

13630  OFTEN'  €3 
113700  INIT(HFX(PO) >P1T< 1 ) 

113710  P5  =  l_EN  ( AT ) :  PG  *  I..FN  <  TYPE*  <  01 1  )  > 

137,70  BTR  <  TOT ,  1,2)  =  STR  <  TIME.  1  ,  P.) 

,  13730  STR <T0T, 3, 1 )  ^ 
j  13740  STR  <T0T,4>2)  ~  STR  ( TIME,  3,  ?  > 

137 SO  STR < TOT, G,  1  )  -  *  t  " 

19760  STR < TOT, 7, 8)  -•  BTR  (TINT ,  S,  F ) 

13770  IN. IT ( HEX  <  SO ) ) PT 
13780  BTR<Plt<l), 1,PS>  “  AT 
13730  STR<PlTO  >,PSi,?,2>  =  "IN" 

19800  STR  <P5T<  1  >,PBU-,PG>  =  TYPE* v'O.U  > 

13810  BTR  <P5«<  i  )  ,PS'PC.tC,3>  =  "COMMUNITY" 

19020  DISPLAY  AT  <  5  O,  30 >,  "EXECUTION  CONTINUES”, 

13830  AT< IP, 3B> , "WORKING  ON", 

13840  AT  (14.  80  > ,  P 1 T  <  1  >,CI  l<GO>, 

1 38SO  AT  ( SI  !  SO) ,  "MAIN  I  TER  AT  ION",  AT  <  8  .1 , 03 )  ,  TSO ,  F I C  <  #*n  , 

1 38 C  O  AT  ( 88 ,  1 0 )  ,  TOT .  CH  ( 3  > , 

13870  AT  ( 78,  SO),  “  'OTHER'  ITERATION"  ,  ATI  Pi",  03)  ,  TS1 ,  P  TP  <  **  i 

1388C)  RETURN 
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19900  >•*** 


19910  *  * 

19380  *  #GG  -  THIS  SLfDRDUTINE  IMTI  FlIEWTS  UPWARD  DTTAII.  INC 

19930  *  MIEN  LOWER  OR  ADD  REO!  HREMENTS  ADD  ALL  MJIT,  * 

19940  *  REQUIRES  TOUR  START  TIME  <T1),  SOURCE  IvODE  * 

199E.0  *  < N ) ,  TOUR  NUMBER  <.T)  AND  CURRENT  REOI  U REMENT  * 

199fO  *  INCEX  <S11>,  SOURCE  El  OW  IS  IN  TO  <  E< ) ,  FLOWS  * 

19970  *  ARE  PLACED  IN  CURRENT  TOUR.  REQUIREMENTS  ARE  « 

19980  *  REDUCED  IN  NEXT  HIGHER  REOI  IT  REMENT ,  C.  CE  « 

19990  *  AND  18  ARE  HANOI. FD  TNTERNA)  I  Y.  TG<8>  IS  « 

80000  *  RESET  EQUAL  TO  Ol.  T  ON  EXIT,  037<  )  CONTAINS  * 

800.10  *  NUMBER  (C8)  OTTAII  ED  UPWARD,  * 

80080  * 


80030  **•«•»*«#«*  •»•»**«*««!  **■»<*-*•**■ 

80040  DEFEN '  GG<T1 ,N. J, SI  1 > 

800 SO  IF  S.l  I  <4  THEN  S.18-S.1 1  *  1  ELSE  PI  8-  3 
8 00 SO  MAT  TE  =  7ER 
80070  TEA  .1  )  =  TG<8> 

80080  IF  Q37 < P*  PI 8 > >«OAT*DP < S18 )  TI-irN  RETURN 
80090  C3  =■  OAT^DB  <  S18 )  -937 <  8..  S.l  8) 

80100  IF  SI  1  =  1  AND  .K3  THEN  RETI IRN 

80.110  IF  SI. 1=8  AND  .T\S  THEN  RETURN 

80.180  03=0 

80130  FDR  R 1 = 1  TO  7 

80.140  IF  C3<=0  THEN  JMP30G4 

80.1  EO  TD  =  .1 

801  CO  IF  R1  =  .1  AND  J  <  3  THEN  TD  =  7 
80.170  IF  R.t  =  .1  AND  J  >  8  THEN  TD  =  S 
80 .1 80  CONVERT  STR  <T9T(R1 ,  .1) ,  1 ,8)  TO  T  8 
80130  IE  J=7  THEN  T8- 31 1  07 (N, J  1 ) 

80.300  IE  TEAR!)  <=  0.0  THEN  .TMT30G4 
808.10  IF  DO  <R. I,  SI  8)  <=  O  THEN  JMP30G4 
80.380  IF  Sl<0li5l)=0  THEN  JMP30G3 
80830  03  =  3 

80840  IF  A .1  < Q .1  3  5 8 )  >0  THEN  03  =  8 

808EO  IF  SI  8=8  AND  R!*l  AND  D0<  1  ,  S!  ,?>  /SI  < Q1  1 ,  1  >  <03  Tl  IE3U  JMR90G4 
808S0  JMP30G3.* 

80870  IF  STR(T91AR.l  ,  J),3*N,  3>--"NNN"  TIEN  JMP30S4  /*BARRrR  TRANSIT  tON 
80.380  IE  SI  1  =8  AND  R.l<4  THEN  ,TMR30S4  /*N0  UPWARD  DETAILING  TO  COMM/ .N’T 

80.390  IF  R 1  ~-C  AND  SU=!  THEN  JMD30G4  /*ND  PC  TD  WAR  CDI  I  I  CE  DEI  AH  T N 

80300  IE  SI  5  =3  AND  <R1=8  DB  R1=E  )  THEN  JMP30G4  /*SOD  COMMAND  p. T I  |  r~r 

80310  IF  SI  1=4  AND  Rl  =  .l  THEN  JMD30C.4  /*SR  C'DL  FRS  AND  Ari  DAT-: ■/ 

803.30  JMPGG03:  COSIJB '  SS<  T.l ,  T8,  TrAR.l  ) ,  R!  ,  ,T) 

80330  IF  C<*C3  THEN  JMTGG08 
80340  IF  S.l  DU?  THEN  JMF’SGO.? 

803SO  GG=C  3/C 

803SO  T5(R1-*1)  =  T D < R .1  •*  1  )  ♦  ( I -GC>*TEAR1  ) 

80370  TS(R1)  =  QS^TS(R.l) 

80380  GOTO  JMRGG03 


SECTION  VII:  SUBROUTINES 

I  50330  JMP0C.05:  GOS1JS '  G.t  <T.t  ,  TE<R.t ) ,  Ri  ,  J,  S.t 5) 

50400  D0( R 1 , S15)  "ROUND (  <D0<R.tsS.t5)  0,4) 

50410  C3  -  C3  -  C 

■  50450  1 4  ( R  .1 ,  J  >  =  I4(Rt,J>  ■»  R0UND<I5,4> 

50430  1 40 < N 5 R 1  >  =  I40<NlRl)  +  OC^'Tl 
50440  145 < Nt  R I  )  -  I45<N,R.t)  ■*  OS 

15 04 SO  IF  Eli  >  3  THEN  JMPC..G01 
50400  037  <R.t ,  S15)  «037  <  R 1 ,  S.t  5  >  *  C :  037  <  F!v  S.t  3 )  *  037  <  8,  S.t  5  >  ■  C 

50470  CONVERT  STR  <  T3*  <  R 1 ,  ,T  >  5  54.  3  >  TO  05 

,50480  CONVERT  ( 05  •  I  NT  <  C5  >  .  S >  )  TO  STR  <  T9T  <R  t  ,  J )  ,  54.  3) ,  P  Ts~  <  ' 

|  50490  JMPOGO.t :  TS  ( R  1*1)  -TS  <  R  t  *  t  >  •  Dl.T 

50500  GOTO  JMP30CS 

50510  JMP30C4;TS(RH  1  )--TS<R.t  *  I  )  *TS(Rt  ) 

|  50550  JMT'.TOCS:  NEXT  Rt 
’  505.30  TG(S>=T5(B> 

50S40  RETURN 


SECTION  VI I :  SUBROUTINES 


P056>0 

20570  *  * 

20580  *  #C-7  -  THIS  SUPmUTINE  RESETS  Al.l  VAR  I  API.  ES  ANT)  * 

20590  *  VARIABLE  ARRAYS  IN  PREPARATION  FOR  A  NEW  * 

POGOO  *  ITERATION,  * 

POGIO  *  * 

POGf?0  **«*•***•*«*  **«*•»*“»**•»•:  •»«•<-««  ««  «  *  *••>..••!*•» 

PCX!.  30  DEFFN'  07 

P0G40  MAT  DR  «  ZER 

20GS0  FOR  P  =  \  TO  7 

20GG0  FOR  O  =  1  TO  4 

PCX 70  DO ( P ,  O )  =  04 ( P  5  O ) 

PCX-80  NEXT  O 
PCX 90  NEXT  P 
=0700  MAT  037  «  ZER 

P0710  FOR  P  s  t  TO  13 
P07P0  01  IT  AC  F1 )  =  O 
P0730  NEXT  P 
P0740  FOR  O  -  I  TO  7 

2 07 SO  FOE  P  =  I  TO  7 

P07fO  1 4  ( P ,  0  >  =  O 

P0770  07 ( P , Q )  =  O 
P0780  1 40 CP, 0)  =  O 
20790  FOR  K " =  1  TO  7 

P0800  IF  STR  (  T31  (  P ,  0 ) ,  3«H<  ,  3)  -  '  NNN"  THEN  JMTROO 
20010  STR(T91  <r,0),  3*l<„3>  =  "OOO" 

P08P0  .IMP 833 r  NEXT  l< 

P0830  STR<T3‘T<P,0),P4, 31  =  'OOO" 

P0840  NEXT  P 

208 SO  NEXT  Q 

208G0  07-4  -  O 

20870  FOR  P  =  I  TO  PO 

20880  TS(P)rTf..CP>,T7(P),TP(P),TiS<r),TI7<F').  TIBCn  -  O 
P0830  NEXT  P 
P09O0  RETURN 


B-50 


r  SECTION  VII:  SUBROUTINES 
I  £0030  RTTirhl 


£094  0  *  * 

I  £09S0  *  #0E  -  THIS  SUBROUTINE  IS  1JSIT)  TO  DELETE  TUB  * 

£0900  *  WORKING  FILES  'CAREER '  AND  'SOURCE'  TO  « 

£0970  *  RESET  TUT  MODEL  FOR  CROUP  SPEC  I  FI  CAT  I  ON  * 

I£09B0  *  WHEN  USER  SO  RFOUESTS.  * 

£0990  *  * 


£1000  *<MM**4Hr**  ^W#**#*^*-*  <!-*«•**•»•«•*  * 

,  £1010  DE  FFl'4 '  B  E 

|  £  1 0£0  OPEN  NODISPLAY  #1  r  10.  ril.  F  =  "SOURCE"  5  LIBRARY  -  " OEFREQ"  , 
£1030  VOLUME  =  “VQLSES" 

£1040  OPEN  NODI SPLAY  #£,  I O.,  FIEF  *  " CAREER "  ,  L I BR  AP  Y  =•  • OH"  REG"  , 
i  £1030  VOLUME  -  "VOLSEE" 

£  1 OC-O  FOR  K  =  1  TO  30 

£1070  READ  #1 5 HOLD* EOD  GOTO  .TMTREOI 

£1000  DELETE  #1 

£1090  JMPBS03  :  READ  #£, HOLD, POD  GOTO  JMPPEOr? 

£1100  DELETE  #£ 

£1110  NEXT  K 

£11 £0  JMPOSO£: CLOSE  #1 

£1130  CLOSE  #£ 

£1140  RETURN 


B-5 1 


float  Variable  A 

(Static)  rv4.?<>  HIM)  lOMO  lO'.AO  lO'.'.O  )  O' .(  <>  (O'. 70  1  ('■■,}«)  10(00  1(V.<X>  100,0  1  ()( H.1K)  i('.  lrX>  1  ( . ? 70  l(4r.O 

KV.40  K-'/X)  I  ('(()  H  .'•/()  KIOO  !(<,'!)  1  (  ( ■(  -O  U  (  70  1  ( .( /  ’.()  II  MO  1<  MO  U  7M)  1  < . 7 70  1(770  1  WJIO 

1  7  k'O 


Strinq  Variablr  PGROt  »'*  lO 

(Static)  f>r.O  ».?'«>  I’l.OO  '17)70  '1170  '..‘(X)  'VIO  ')<’(.('  'l.’l.O  Op  7() 


Y  AD- A 1 34  293 


AVIATION  OFFICER  REQUIREMENTS  STUDY(U)  INFORMATION 
SPECTRUM  INC  ARLINGTON  VA  F  E  O'CONNOR  31  AUG  02 
ISI -V-83-2693'02  NQOO 1 4-8 1 -C -0368 
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SUP  "OFFERIN'*  (Y*. Y1 > 

*  * 

*  OFFPRIN  -  THIS  FXTERNAL  SUDROIJTIWF  CONTAINS  TIE  * 

*  SUMMARY  CALCULATION  AND  PRINT  ROUTINES  * 

*  FDR  THE  OTTICER  REGUIREMENTS  MODEL .  * 

*  # 

*  (FILE  OKIE!  .t  LINKED  TD  DKIE12)* 

COM  DO  ( 7, 4  >  ,  INVT  <  9*  31  ) ,  A*2?,  PS,  PC,  LACHl  it  (3)  PD..  TYPHM  !  4 )  DO,  0 !  1  ,7*D 
COM  D*B.,DS(B)  ,SI  US.  D),PO(  10  > ,  ROE,  D3(  A  ) ,  14(7,  7 )  ,  TD(;?0>  ,  TP  < PO ' .  T  !  1 
COM  Pl*<3)130,  X4*130>  X ST* 1 30 * B*70 , 0*70 , T 1 D  <  EO  > , 07  <  7 , 7  > , TOO  <  7 ,  D) .  PD 
COM  M(1ES9),E*J  30,  T9*  ( 7,  7)00.,  7 1*3,  74*3, 037  <  S,  4  ) ,  OUTA  (  S ) ,  R0(  30  > 
COM  X*70,  PRD4 ,  PROD,  ACC  J  ,  MGRDUP*30 ,  TOT  (  S ,  3 ) ,  TOTA  ( B ,  3 ) ,  7 OTN  C  S .  3  > 

COM  PTR U  4  > , TR A* ( 7  >  2D , 070 , OSD  <  D ) , OSD  <D),07P<D), 073  ( D ) , 074 
DIM  DES*  30,  TOES* 30,  Y*1 30, G3<  7, 7  > ,  F*70,  TO ( EO ) ,  T7  < PO ) 

DIM  077 < 5) 

SELECT  PRINTER 

STR  <  D* ,  1,2)  =  STR  (DATE,  3,  2 ) 

STR(D*,3,  1)  = 


STR(D*, 3,  i )  =  "/" 

STR (D*, 4, 2)  *  STR (DATE, D, 2) 
STR(D*,0,  !>  * 

STR(D*97,2>  =  STR (DATE, 1,2) 
STR(T*,1,2)  -  STR (TIME, ! , 2) 
STR(T*,3,  i>  =  *!* 

STR (T*, 4, 2)  =  STR (TIME, 3, 2) 
INI7  <l-EX<3n>  >X4* 

IN.T7  (HEX  <2A)  )XD* 

I NIT (HEX (PO) >P* 

IF  Y1  *  S  THEN  .TMP1407 
IF  Y1  =3  THEN  JMriAOO 
FOR  O  *  I  TD  4 
D3(G)  *  O 
FOR  P  U  TO  7 
D3(G>  =  03(0)  -»  DO ( P ,  O 


DO ( P , O  > 


03(0) >/DS(0) 


IF  Y1  *  S  THEN  .TMP1407 

IF  Y1  =3  THEN  JMriAOO 

FOR  O  *  I  TD  4 

D3(G>  *  O 

FOR  P  U  TO  7 

D9(G)  =  03(0)  •*  DO ( P ,  O ) 

NEXT  P 

D3(0)  *  < DB < G )  -  D3(G))/DS(G) 

NEXT  G 

JMPDOi ;  IIMIT (HEX  (20)  )PI*U  ) 

STR(P1*U>,1,10>  =  "WORKING  ON" 

STR (PI* ( 1 ) , 12, PD)  -  A* 

STR  ( P 1  *  ( 1  ) ,  1 3+PD,  E )  =  "IN* 

STR(P1*U  >,  !0»PD.,P0>  =  TYPE* ( 01 !  > 

STR(P.t*(!),I7-»PD-»P0,9)  =  "COMMUNITY* 

ACCEPT  AT (D,P3>, EAC  < HEX ( SC  > ) , P 1 * U  > , 

AT ( 7, 10) , FAC ( HEX <  PC  >  )  ^ STR ( Y*.  1 , 40) , AT < 7, D4  > , 

FAC  (HEX  (  SC  )  > .  DU  ,  AT  (  S D4  > ,  FAC  (HEX  (POL  7*. 
AT ( 10,  20) ,  "FRACTION  OE  FILL", 

AT (11, ID)," SENIOR  COMMANDERS” , AT ( 1 1 , 3D ) , 

EAC ( HEX ( SC ) ) , D3( 4 ) , PIC (##.  ##« ) , 

AT  < 12, ID), "COMMANDERS" , AT ( 1 2, 3D ) , F AC ( HEX ( SC  > ) , 

D3 (3>,PIC< ## .  ##40, 

AT  ( 1 3, 1 D  > ,  "  LT,  COMMANCERS"  ,  AT  (13,  3D ) ,  FAC  ( I  EX  (POL 


I 


540 

550 

550 

570 

5B0 

590 

500 

€10 

€P0 

€30 

€40 

€50 

€G0 

€70 

€80 

€90 

700 

710 

7P0 

730 

740 

750 

7€0 

770 

780 

790 

800 

810 

820 

830 

B40 

850 

8€0 

870 

880 

890 

900 

910 

9P0 

930 

940 

950 

9€0 

970 

980 

990 

1000 

1010 

10P0 

1030 

1040 

1050 

1060 


D9  <  £ ) ,  P I C  <  ## .  ###), 

AT  (14,15),"  L.T ,  AND  BF1  OW"  , AT  < 1 4, 35) , FAC  <  HEX  (80), 

D9  <  1  ) ,  P I C  <  ##  r  ♦)##  >  5 

AT  <  15,  lS),,*«B«a«r.r«a  =  ««rSa«s««,.'f 
AT <17*  10)  ,  "ACCESSIONS"  ,  AT<  17,  39) ,  F AC  <  1C X  ( 80  >  ) , 

INVT (B,  31 ) ,PXC ( ## # ,  m ) , 

AT <  18..  10) ,  "FIRST  TOUR  I  .FNGTH"  ,  AT  ( 18.,  39>  , 

FAC (HEX  <8C ) ) , T1 I , PIC  <###, ## ) , 

AT <20,  10)  ,  “OUTPUT  OPTIONS.  PRESS  PF  KEY?  "  , 

AT (21 5 15)  ,  "  1 ,  NODE  F! ..OW5" ,  AT(P1  ,  3P) ,  "P,  ,T  WFI JTOi Y " , 
AT  ( PI ,,  54  > ,  "  3.  RFO!  JI RFMFNTB ”  , 

AT (PP, 15)  ,  "4»  EXCESS  FLOW", 

AT(P3, 10) , "FOR  FORFFN  PRINTS  PRESS  PF  1 1 "  f 
AT  <  P4 , 1 0 ) ,  “  PRESS  ENTER  TD  CONTINUE  PROCRAM"  , 

KEYS  ( P I N  ( O )  1VP  I N  <  1  >&PIN(P)R<PIN<3)NniN(4>rxPTN<  1  1  )*BJN<  IP)  > , KEY  <  Mf.  i 
IF  MC.  -  O  THEN  END 

ON  MC.  GOTO  .JMP40P,  .TMP403,  .IMP 4 04  ,  JMP 405 JMP5101  ,  JWT5100 

GOTO  .IMP  50.1 

jmpsioi;  Gosi.ru  41<y*) 

GOTO  JMP 501 
JMP5100?  GOSUR '  47 < Y*  > 

GOTO  JMP 501 

JMP40P: /^OUTPUT  MATRIX  I4*V 
FOR  P  *  1  TO  7 
INIT ( HEX  ( PO)  >Pim(P> 

FOR  R  «  1  TO  7 

CONVERT  1 4  <  P ,  R  )  TO  5TR  (PUMP),  7<wR-€!,  €) , PTC ( ###,  #11 ) 

NEXT  R 
NEXT  P 

ACCFPT  AT  <  5,  3.? )  ,  "  NODE  FLOW  VA1  t  IE5"  , 

AT <7,  34  )  ,  "TOUR  NIJMDCRE" , 

AT (9,8),  "ACTIVITY", 

AT < 9, P3 ) , " ONE" ,  AT < 9, 3€ > , " TWO" c AT ( 9, 4F ) , * THREE " , 

AT  <  9 , 49 > ,  "  FOUR "  ,  AT < 9 ,  5€ ) ,  " F I VT: "  ,  AT  ( 9 ,  €4  > ,  "  5T  X"  , 

AT (9, 70), "SEVEN", 

AT  <  1 .1 ,  P>  ,  FAC  <  HEX  (80), LAP  FI  *  <  1  )  ,  AT  <11,  P7 ) ,  r  AC  ( IFX  (  80  >  , 

F 1*  ( 1  )  ,  CM  <  49 ) , 

AT<  1P,P  >,FAC(HEX<8C  )>,  LAPEL*  <P),  AT  < IP,  P7> ,  FAC  ( HEX  <  PC)  > , 
P1*(P),CH<49), 

AT<  1 3,  P),  FAC  (HEX  (80  ) ,  LAPEl.*<  3) ,  AT<  13,  P7) ,  FAC  (HEX  ( PC  )  ) , 
P1*(3)«CH<49>, 

AT<14,P>,FAC<HFX<BO ),LADEL*(4>,  AT<  14,P7) ,  FAC  OCX  (8C  >  ) , 
PA*(4>,CH<49>, 

AT ( 1 5,  P ) , FAC  (HEX (BO)  ), LAPEL  * ( 5 ) ,  AT <  1 5,  F7 ) ,  FAC  ( HEX  ( 80  > , 
Pl*<  5) , CH<49) , 

AT<  1€,P) ,  FAC  (HEX  <80  )  ,  i  ABEL* ( C ) ,  AT (  1€,  P7>  ,FAC  (HEX  <80  ) , 
Pi*<€>,CH<49>, 

AT  <  17,P),FAC(HFX(BO  ), LABEL  *<7),  AT<  17,  P7) ,  FAC  (HEX  ( 80  )  , 

P 1 * ( 7  > , CH  <  49  > , 

AT<  19,  5) ,  "********♦*****•*«***««-»•»*«■***«-»<)■*«**«***#<>#<♦<*«*<•<» 

AT < PP,  .10),  " PRESS  ENTER  TO  RETURN  TO  OUTPUT  MENU", 

KFY5<RIN(0HVr.TN<I)  )),0N  <BI.N(0)W3IN<  1 1  > )  GOTO 


▼ 


1 070  JMP50 1 ,  .IMP 5  1  02 

1080  JMP5102:GnSUD'  4.7 (Yt) 

1030  GOTO  JMP501 

lioo  JMP403: /^output  selected  inventory  entries*/ 

1110  ACCEPT  AT <5; 32) INVENTORY  DISPLAY", 

1120  AT<7, 10), "SELECT  FOUR  YEARS  FOR  OUTPUT  PFTWEEN  1  ANT >  30", 

1130  AT <  10,  IF.) ,  "FIRST  YEAR"  ,  AT ( lO.  30)  ,T15< 1 ) , 

1140  PIC<##>, 

1150  AT (12, 15),  ■  SECOND  YEAR"  ,  AT<  17,  30) ,  TIE ( 2 ) , 

1 1€<0  PIC  <## > , 

1170  AT ( 14.,  15) ,  "THIRD  YEAR"  ,  AT<  14,  30)  ,T15<  1) , 

1180  PIC<##>5 

1130  AT<  16,  15),  "FOURTH  YEAR" , AT( 16. 30) , T 1 r< 4 > , 

1200  PIC<##>, 

1210  AT <21  ?  10) ,  "PRESS  Pr7  TO  RETURN  TO  OUTPUT  MENU"  . 

1220  AT<23,  lO),  "PRESS  PO  TO  CONTI NUT"  , 

1230  KEYS(DIN<0>ficDIN<  1  )&PIN<2>M?IN<  1 .1  >).ON(DJWd.  >M)TN'r)M?T N<  i  <  >  )  GOTO 

1240  JMP502,  JMP501,  JMT5103 

1250  GOTO  JMP507 

1260  JMT5103r  GOSUC  '  43  (YOU 

1270  GOTO  JMP50S 

1280  JMP502:  /'♦CREATE  AND  DISPLAY  IWT  SELECTION-/ 

1230  FOR  P  =  1  TO  3 
1300  INIT(HEX<20) >P1$(P) 

1310  STR(P1*<P>,  1,24)  ~  LABELED 
1320  FOR  R  =  1  TO  4 

1330  CONVERT  I NVT  ( P ,  T 1 5 <  R  )  )  TO  STR  (PHUT  > ,  18  *3*R.  O  ,  PTC  ( #4# ,  #4L> 

1340  NEXT  R 
1350  NEXT  F 

1 360  ACCEPT  AT <  3,  3 2  > ,  "  INVENTORY  01  OP!  .AY"  , 

1370  AT  <  7 ,  38 ) ,  "  YEARS"  , 

1380  AT <8, 16)  5 "ACTIVITY" , AT < 8, 38) ,  FAC  (HEX  <80  ) ,  T1  C  ( i  ),.PTC<44)  . 

1330  AT<8,47>5  FAC  (HEX  <80  ) ,  T 1 E* ( 2 ) ,  P IC  < #*’  > ,  AT  (  8 .  Sf . ) ,  E AC  ( I IFV  f  PC  )  ) 

1400  , T1 5<  3) ,  PIC  <### ) .  AT < 8..  65)  ,  FAC  (IITX  ( RC  )  ) ,  TI  5(4) « PIC  <#4'» 

1410  AT  < 10,8) ,  FAC  <  HEX ( OC ) ),Pl$(i), 

1420  AT  <  1 1 , 8  >,  FAC  <  HEX  <  80  ),  P 1 T  <  2  > 5 

1430  AT  ( 1 2.,  8 )  ?  FAC  ( HEX  (80  ),PUM3>, 

1440  AT  <  1 3,,  8  >  5 FAC  < HEX  <  8C  >  )  ,  P Ut(  4 )  , 

1450  AT  < 1 4 ,  8  > , F AC  <  HE X ( PC ) ) , P 1 *  < 5 ) , 

1460  AT < 15, 8  > , F AC <  HEX  <  RC  > ) , P 1U  ( 6) , 

1470  AT ( 16; 8  >  5  FAC (HEX  <  PC ) >,P!*<7)f 

1480  AT  <  17,  8),  FAC  (HEX  (PC)  ),P.t*(P>, 

1430  AT(  13.  5),  "^«***********4HH!-*4H*«4Mr*^**<W4H*-»4«*4*4*<M-'*HMi-*M-  + 

1500 

1510  AT  (21, 8)  ;FAC  (HEX  (80  )  ,PVP(3>, 

1520  AT ( 23,  5) ,  " <hi ****««  *«•«**  «*« *■  <•  t- v 

1530  iHHHHHSWHf*#*  •  , 

1540  AT <24; 10), "PRFSS  ENTER  TP  RETURN  TP  OUTPUT  MTNH" , 

1 550  KEYS ( B I N ( 0 ) fcD IN  <  .1 1 )  > ,  PN  <PIN(0>Rf’.IN(  1 1 ) )  GOTO  .TMP50) ,  .JMT510A 
1560  JI*P5104;  GOSUD '  44<Y*> 

1570  GOTO  .JMT'501 

15B0  JMP40A: /*DI SPLAY  REOl IIREMEWTS  MATRIX*/ 

1530  FOR  P  *  1  TO  7 
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1600  INIT(HEX(20) >P1*(P> 

11610  STR(PA*(P),  1, 24)  =  LAI3El*(P> 

1620  FOR  R  *  1  TO  A 

1630  CONVERT  DO(P,R>  TO  STR  (PUMP  ),  18-»8*R.,  7) ,  PTC  #40 

11640  NEXT  R 
1650  NEXT  P 

1660  IN.TT (HEX  (SO)  >PUMB> 

1670  STR(P14.<8>,  1,34)  =•  "LOWER  CRAOE  FILLS" 

11680  FOR  R  »  1  TO  3 

1630  CONVERT  G37<J3,R)  TO  STR  <F5 *  < 0 > ,  27-i3*R.  7 1  5  FTC  <#**HL  ##  ) 

1700  NEXT  R 

.  1710  ACCEPT  AT ( 3, 31 ) , “REQUIREMENTS  DISPLAY", 

1 720  AT  <7; 36 ) , “ CATEGORY " , 

1730  AT <8,  16) ,  "ACTIVITY"  ,  AT  < P..  37 > ,  "i..TM  ,  AT  (8,46) "I. COR "  , 

1740  AT<8,55), "CDR" ,AT(P.  64),  "CDRi", 

1750  AT < 1 0,  B 1 ,  FAC  < HEX  <  PC )  ) , P ! *  (  !  > , 

1760  AT (11,8), FAC  < HEX  < BC  ) > ,  P 1  iM  2 ) , 

1770  AT  <  1 2,  8  > , FAC < HEX ( BC  >  ) ,  P .1  $<  3 ) , 

1780  AT  <  1 3i,  B ) ,  FAC  <  HEX  <  BC  )),PUt(4), 

1790  AT  < 14  s B ) , FAC  <HEX <  BC ) ) , P 1*  <6> , 

1800  AT(  15,  8  >,  FAC  (HEX  (BO  ),Pl!K6) , 

1810  AT<16.,  B>,  FAC  (HEX  (BC>),  PUT  (7) , 

1820  AT<  18.  5)  , 

1830  “  , 

1840  AT  <  20 5 8 ) , FAC  <  HEX  <  80  > ,  P  UT  <  8  > , 

1850  AT  <  22,  5)  , 

1860 

1870  AT <24, 10) , "PRESS  ENTER  TO  RETURN  TO  OUTPUT  MENU" , 

1880  KEYS(l3IN<0>fcF.IN<  11  >  >,  ON  <BIN<0)fttPIN<  1 11  )  GOTO  .IMP  601 ,  ,TMPr.l 05 
1890  JMP  51 05:  6051  JO  45<Y*> 

1900  GOTO  JMP505 

1910  .TMT40S: /^DISPLAY  FI  APSFD  TIME  (07)  */ 

1920  FOR  P  =  1  TO  8 
1930  INIT (HEX  ( 20)  >PUMP ) 

1940  STR(P1*(P), 1,24)  =  LADEl.«(D 
1950  FOR  R  «  1  TO  7 

1960  CONVERT  R01JN0(07(P,R)  ,0)  TO  STR (Tl* <P  ) ,  21  •  6*R ,  5)  ,PIC  < #*#l 
1970  NEXT  R 
1380  NEXT  F 

1990  STR<P1*<8>,  1,24)  =  "NON  AVIATION  MAN  YEARS" 

2000  FOP»  R  =  1  TO  7 

2010  CONVERT  ROUND  <OUTA(R  ) ,  1 )  TO  STR  (PUT!  8) ,  21  •  6*R,  6) ,  PTC  ( ###  .  #  i 
2020  Nr XT  R 

2030  ACCEPT  AT<  3,28) ,  "□.APSED  TIME  (07>  DIR’!. AY"  , 

2040  ATtTjBBVTrUJR", 

2050  AT (8, 16),“ ACTIVITY", AT <8, 37), "1" , AT<8, 43) , "2" ,  AT ( 8.  49 ) , 

2060  "3", AT (F* 55) ,  “4" , AT (8, 61 ) , "5" , AT <8, 67) , "6" , AT  <  F, 731, "7", 

2070  AT  < 1 0, 8  > , FAC <  HEX  <  8C ) ) , P  UP  ( 1 > , 

2080  AT<1 1,8),  FAC  (HEX  (BO  >,PDM2>, 

2090  AT<  12,8),  FAC  (HEX  (80  ),P  1*1(3), 

2100  AT  <  1 3,  B  > ,  F  AC  <  HEX  <  PC  )  ) , P lit ( 4 > , 

2110  AT  <  1 4,  8  > ,  F AC  ( HEX  <  PC  )  ),PUt<6>, 

2120  AT  ( 1 5,  B  > ,  FAC  <  HEX  <  PC  )  ),P!*<6>, 
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5130  AT <  10,B),FAC<HEX<BC>  )tPl«(7), 

£140  (  IB,  5)  f  ■4HMHI**4HMHMHMH44HH«^JHH»4!«***<H:-IH:-*4*4Mr4:-K«-*4;-*4V«*** 

2100  AT  <  20  j  B  >  t  FAC  <  HITX  <  PC  )),PJi(R), 

£170  AT  <22,  B)  , 

21B0  ******♦***♦**«-*«***«-»«•» 

2130  AT  <24,10),*  PREDF.  ENTER  TO  RETURN  TO  DUTPllT  MFWI  l-  5 

2200  KEYG(BIN(0)B<0IW<  11  >  >tnN  (B.TN(0>W)IN<  1 1  >  >  GOTO  JMP  50  5  ,  ,TMP  5  1  Of. 
2210  JMP 5100:  GOF-I  R '  40<Y!fc> 

2220  GOTO  JMP  501 
2230  RETURN 

2240  /*  OPTION  B  */ 

2200  JMP 1 407 : 03  =  O 

2200  MAT  TO  *  ZER; MAT  TP  -  ZER 

2270  FOR  O  =  1  TO  R0UND<PR04/1P - 1 ,0) 

22B0  FOR  P  =  1  TO  7 

2230  TR(1)  =  TB( 1 )  4  1NVT(P,0) 

2300  NEXT  P 

2310  TB(  1 )  =  T8(  1  >  •*  IWVT<3,G) 

2320  NEXT  O 

2330  TOR  Q  «  R0UND<PR04/1P,0)  TO  ROUND< FR05/ 1 P  - 1 , 0 ) 

2340  FOR  F  -  1  TO  7 

2330  TB(P>  =  T8<2)  4  INVT<F,0> 

2300  NEXT  P 

2370  TB (2)  =  T8<P>  +  IWT(^O) 

? 3B0  NEXT  G 

2330  FOR  G  =  ROUND < PROP./ 12,0)  TO  ROUND < PROD/ 12  +  3.0) 

2400  FOR  P  *  1  TO  7 

2410  TB ( 3)  =  TB ( 3 >  4  INVT<P,0> 

2420  NEXT  P 

2430  TB ( 3 )  =  TP <  3 >  4  XNVT<3>G) 

£440  NEXT  G 

2430  FOR  G  =  ROUND  <  FROr>/ 12*4,0)  TO  30 

2400  FOR  P  -  1  JO  7 

2470  TB <  4  )  =  TB  ( 4  >  4-  IWVT<P,0> 

24 BO  NEXT  P 

2430  TB ( 4 )  *  TB  <  4 )  4  INVT<3.0) 

2300  NEXT  G 

2310  FOR  O  --  .1  TO  11 

2520  FOR  P  =  1  TO  4 

2530  T5(  1  )  =  T5(  1  )  4  IWT(P,fi) 

2340  NEXT  P 

2330  FOR  P  *  5  TO  7 

2500  T5<2>  *  73(2)  4  INVT<F,0) 

2570  NEXT  P 

25B0  T5(2>  =  T3( 2 )  *  INVT(3.G) 

2530  NEXT  Q 

2000  TB(  5)  *  (l^TOl  1  >  )/(044(T5(  1  v»TP<P) ) ) 

2010  FOR  G  ■  12  TO  IB 

202 0  FOR  P  *  1  TO  4 

2030  T5< 1 >  «  T5( 1 >  4  INVT<P,G) 

2040  NEXT  P 

2050  FOR  P  «  5  TO  7 


26€-0  TEH  2)  «  T5<2>  •»  INVT(P,G) 

I  2670  NEXT  P 

2680  T5(2)“TEH2)  +  IMVT <3,  Q) 

2690  NEXT  0 

1  2700  TB<6>  =  <  18*T5<  1 )  >/<  11*<TS<  1  >-»TS(2> )  > 

2710  T8(7)  *  <18*T5(1 > >/<9*<T5<l)+T5<2) > ) 

2720  GOSUR'  81  (4) 

12730  T8(8>  *  03 
2740  G0SIJR  '  81  <S) 

27 SO  T8(8)  =  T8< 8)  4  D3 
2760  GOS1JB'  81  <  6) 

I  2770  T8(9)  =  03 
I  2780  FOR  P  =  1  TO  4 

2790  T8(P>  =  ROUND < T8 ( P  >  5 O ) 

I  2800  NEXT  P 
I  £810  FOR  P  *  S  TO  9 

2820  TB(P)  *  ROUND <  TB  <  P ) , 2 ) 

2830  NEXT  P 

2840  X4S  =  ROUND  <  INVT  <8, 31 ) , O) :  X46  *  ROUND(T.l  1 , 0) 

20 SO  IF  Z4T  =  " YEO “  THEN  JMP.1412 
2860  SELECT  CRT 

2870  03  =  T8<  1  ) *78< 2) +78< 3) 4T8< 4 ) 

2880  INIT(HEX (20) )P1*< 1 > 

2890  5TR(P1*<  1  ),  HF3,P5>  -  AT 
2900  STR (PIT < 1 ) , 34P5+P9, 2)  =  "  IN" 

2910  STR(P1*<  1 )  f  6+PStP3,PC.)  -  TYPFT  <  Ol  .1  > 

2920  STR<P1T< 1 ) ,74P5»P6tP3,8)  -  "COMMUNITY" 

2930  ACCEPT  AT <  S,  1 ) , FAC  (HEX  <BC )  >  , PITH  1  >  < 

2940  AT  (7,  10) ,  FAC  ( (HEX  (80)  ,  OTR <  XT ,  1 , 40  >f  AT(7,S4)  , 

29 SO  FAC  <  HEX <  PC ) l , DT , AT (8,  S4 ) ' FAC  < HE  X ( PC )  )  ,  TH , 

2960  AT(9,  lO) ,  "COMMIJNTTY  POPUI.  .ATI  ON",  AT <9,  4S)  ,  "FI.  FF1  DEPORT!  <N T T 

2970  Y% 

£980  AT <  lO.  7) ,  "GRADE"  ,  AT <  10,  16)  ,  "WUMP.ER"  , 

2930  AT  <  1 1 ,  S )  f  "SENIOR  COR"  ,  AT<  11 ,  18) , FAC (HEX  (PC  )>,TRO  ) , 

3000  PIC <####>, 

3010  AT< 12, 5), "JUNIOR  CPR" , AT< 12, 1 8 ) , TAC ( HEX ( RC ) ),T8(2), 

3020  PIC (####) , AT ( 12,40) , “COMMAND OPPORTUNITY" 5 AT < 12, 62 ) , P AC (HEX < PC >  ' , 
3030  T8(3) 5 PTC <#, ## ) , 

3040  AT  <  1 3.,  S ) ,  " LT,  COR "  5  AT ( 1 3,  18 > ,  PAC  < HEX  ( PC  ) ) ,  TR <  3)  f  P  TC  < mm 1 ) , 

30  SO  AT  ( .13,  40) ,  “OEPT  HEAD  OPPORTUNITY"  ,  AT(  .1 3.  62) ,  FAC  (HEX  <  8C  ))  , 18  \  8  ), 
3060  FIC<#.#«>, 

3070  AT ( 14,5) ,  " LIEUTENANT"  ,  AT (.14.  18),  FAC  <  HEX  <  8C  )  ) ,  T8(  4 ) ,  P  T C  ( m.W,  >  , 

3080  AT(  16,  S),  "TOTAL  ",AT<  16, 18) ,  FAC  (HEX  ( 80  ) ,  03,  P 1 C  <  ) , 

3030  AT(  17,5), 

3100 

3110  AT( 18, SO), "ACIP  PROJECTION", 

1  3120  AT619,  5), "ACCESSIONS  ",  AT  (  19,  .23  >,  FAC  <  HEX  <  80) , 

3130  X4S, P IC ( #### ) 5  AT (13, SO) , "GATE  1 " , AT( 19, 60) , 

13140  FAC  (HEX  (80  )  ,T8(S)  ,PIC<#,  #tt  >, 

31  SO  AT  (20,  SO),  "CATE  2"  ,  AT  <  20,60 ) ,  FAC  <  I ITX  <  8C  ) ),  18(6) ,  PIC  <#.  #lt  > . 

3.1  60  AT  <21 ,  S> ,  "FIRST  TOUR  LENGTH"  ,  AT  (2.1 , 2S) ,  FAC  <  HEX  <  PC  )) , 

1  3170  X46,  PIC  (##) ,  AT(2.t ,  50) ,  "GATE  3"  ,  AT  (21 ,60) , 

3180  FAC  (HEX  <80  ),T8<7)?  PIC  <#.## ), 


3190  AT  (23,  5),  “DO  YDU  WISH  TO  CONTI  NUT  IN  PROCESS  MDN I  TOT.'  I NO  ? ' , 

3200  AT  <  23,  55  > ,  FAC  <  HITX  < 81 >  > , 2 1 », CH<  3 ) , AT <  23.  01 >,“< YED/NO )  -  , 

3210  AT <24, 5), "PRESS  ENTER  TO  CfWTIKir",  AT(24.  35) .  "PRESS  PE  1  T 

3220  O  SUPPRESS  PRINT", KEYS <8 IN <0 >fcFIN( 1 > > , KEY ( PR) 

3230  JMP1412:  IF  PR=1  THEN  END 
3240  MAT  GG=7ER 
3250  MAT  T5=2ER 
3260  FOR  P  *  1  TO  7 

3270  FOR  G  *  1  TO  R0UND<PRD4/!2- 1 , 0) 

3200  09  ( P ,  1 )  =  Q3  ( P ,  1 )  I NVT  ( P ,  G  > 

3290  G0(P,5>  *  GO(P,  5)  ♦  INVT(F,G> 

3300  NEXT  G 

3310  FOR  G  «  ROUND (PR04/ 12,0)  TO  ROUND! PROF/ 12  1,0) 

3320  G9(P,2)  =  GO ( P ,  2 )  +  INVT(P,0> 

3330  G9 <  P ,  5  >  «=  G0(P,5>  ♦  INVT<p'o> 

3340  NEXT  G 

3360  FOR  G  =■  ROUND! PROF/ 12,0)  TO  ROUND! PROF/ 12* 3,0) 

33f.O  G9(P,3)  *  G9(P,3>  ♦  INVT(P,G> 

3370  GO < P , 5 )  -  GO ( P , 6 )  ♦  INVT<P,G> 

3380  NEXT  G 

3300  FOR  Q  =  ROUND  <  PROF/ 12-»  4,0)  TO  30 
3400  GO ( P ,  4 >  =  G0(P..4>  ♦  IWT(P.fi) 

3410  Q0<  P ,  5 )  -  GO  <  P ,  5  >  *  INVT<p1g> 

3420  NEXT  G 

3430  NEXT  P 

3440  FOR  P  =  1  TO  7 

3450  FOR  G  -  1  TO  7 

3460  GO ( P , G )  =  ROUND < GO (P,G),0) 

3470  NEXT  G 

3430  NEXT  P 

3400  FOR  G  =  1  TO  R0UND(FR04/12  1,0) 

3500  TF<!>  *  TF<  1 )  «•  INVT<0,0) 

3510  TF(  5)  *  TF(  5 >  ■»  INVT(0,G> 

3520  NEXT  G 

3530  FOR  G  =  ROUND <PRH4/ 12. O)  TO  ROUND < PROF/ 1 2  1,0) 

3540  TF<2>  =  75(2)  ♦  IWTU,(5) 

35.60  T5<5)  *  TF(5>  *  INVT(0,G> 

3560  NEXT  G 

3570  FOR  G  =  ROUND! PROF/ 12,0)  70  R0UND!PR0F/1 2 • 3, 0) 

3530  T5 ( 3 >  =  75 <  3 >  •»  INVT!9,G> 

3500  T5(5>  =  T5(F)  •*  INVT(oiG) 

36.00  NEXT  G 

3610  FOR  G  -  ROUND (PROF/ 12 • 4,0>  70  30 
36.20  TF(  4)  =  TF( 4 )  *  IWVT(0,G) 

3G.30  TF<5>  =  75(5)  *  INVTo'o) 

3640  NEXT  Q 

3650  FOR  P  «  1  TO  5 

3660  T5(P )  =  R0UfO<T5(P),0) 

36.70  NEXT  P 

3680  D3  «  TO!  .1  )  +  73(2)  +  T8<3>  «•  T8(4) 

36.00  G  *>  LEN(TYPE*(G1 1 ) > :R  =  INT((25  0)/2) 

3700  STR(B*,R,G>  *  TYFE*<011) 

3710  STR  <31.,  R‘*G‘*2,  O)  »  "COMMUNITY" 
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37j?o  select  printer 

1  37.30  PRINT  PAGE 
37 AO  PRINT  SKIP (4) 

37 SO  PRINT  TAB  <  59) t "SUMMARY  DATA" 

.37  GO  PRINT  SKIP(.t),TAD<43>5DlT 

1  3770  IF  24*="  YES"  THEN  PRINT  TAD  <  1 J?0 )  ,  " GROUP  “  ;  STR  \  Y*,  1  30,  .t  > 

37 BO  IF  A*  =  "NAVAL  AVIATORS"  THTN  PRINT  TAD <  SB ) ,  A*,  7 AO  <  IDO ) , DT  El.Sr 
3790  PRINT  TAD <55 ), A*, TAD (120), D* 

1  3800  PRINT  TAD  ( 120 ) ,  T* 

3810  PRINT  SKIP!  1  >t  Xrn 
3820  PRINT  SKIP <  1  > " 

3830  IF  S.1  <G.llf  1  )>0  THEN  JMP.1420 

3840  PRINT  USING  SHP20.,  "RETENTION"  , ROUND < ROT'->U OO,  O)  r  "  7"  ,  " NO" 

3850  PRINT  USING  SHTSO^  "CP/ >IIJN!TY" 

3800  PRINT  USING  SHT31, "PLONBACK  FRACTION"  5P0<  1  >*100,  "7."  ,  "PLANNING " 

]  3870  PRINT  USING  SHP51 , "FACTORS.  " 
i  .3880  GOTO  JMR1421 

.3890  JMP  .1420:  PR  I  NT  USING  CHP20,  "RETENTION"  ,  ROUNTHRO, T^iOO.  0)  -  V,  "  ? 

3900  "NUMBER  OF  SOUADRONS" , St ( Gi 1 , 1 > 

3910  SUP 20:  FMT  COL<  10)  .CH<2C>)  ,  COL  <  3.7)  ,  PIC  ,  COL  <  3B1  ,  CU<  1 ),  COI  <7B>, 

3920  CH<2S), COL < 105>,PIC<##> 

3930  PRINT  USING  30,  "AIRCRAFT  PER  SOU ADR ON" , SI < 01 5 , 2 ) 

3940  SHP30;PMT  COI.  <  74  >  ,  CHI  25 ) ,  COL  (5  Or>  5  PIC  <  *W  > 

.3950  PRINT  USIl'iG  SI  IP31 ,  “PEDWTIACK  FRACTION"  .  PO  <  1  >  *1 00,  , "  CREW  r  ACTOR  " 

39GO  , SI  <G1 1 5  3) 

3970  OHP  3 1 :  F  MT  COL  <  1 0>  5  CH<20) ,  COI  < 32) ,PTC<##) , COL < 35) , CH< 1  ),C0L<74>, 
.3980  OH  ( 25 ) ,  COL  <  1 OC.  > ,  P I C  <  # , ## ) 

3990  INI T( HEX (20) >E* 

4000  STR  <  E* ,  1 , 1.EN  ( M  )  )  =  A* 

4010  STR<F*,2-*LEN<A*>  ,8)  =  "PER  CREW- 
4020  IF  A*  "NAVAL  AVIATORS"  THEN  S  -  4  FI  SE  S  =  S 
4030  PRINT  USIl'iG  SHTS1 ,  E*.  SI  <01 1 ,  S) 

4040  SHPSUFMT  COI.  <  74  )  ,  CH<  30) ,  COL  <  IOC ),  P  JC  <#,##  > 

4050  JMT  .1421:  PR  I  NT  SKIP  (  1  > ,  XS* 

40G-0  PRINT  Sl<  IP  ( 2)  5  TAD  <  57  ) ,  "COMMUNITY  POPULATION" 

4070  PR  I  I'D'  5I<  I P  <  .1  ) 

4080  IF  A*  =  "NAVAL  AVIATORS"  Tl  IHnI 

4090  TOES*  =  "ACCESSIONS  TO  TRAINING  <139X)"  ELSE 

4100  TDES*  =  "ACCESSIONS  TO  TRAINING  < 1 37 X ) " 

4110  IF  A*  =  "NAVAL  AVIATORS"  THEN 

4120  DEST  «  "ACCESSIONS  TO  131X  DESIGNATOR"  BIST 

4130  DES*  =  "ACCESSIONS  TO  132X  DESIGNATOR” 

4140  IF  A*  =  "NAVAL  AVIATORS"  THEN  Jt  =  1  El.Sr  J1  =  2 
4.150  ACC  1  =  < INVTI8, 31 > >*TC0<A1 <011 ,  Jl ),  1 ) 

41  tO  PRINT  USIl'iG  SHT~n,TDCED  ,  ROUND  <  ACC)  ,0)  .  "STN  TOR  COMMANDERS"  ,  TE  <  > 
4170  SHP33:  FMT  COL  <  .10)  ^  CHI  30) ,  COL<  42) ,  PIC  <#4Mtt)T ,  COI  (  r  r, ) ,  Cl  i  (  18),  COI  <75) 

4180  ,PIC<##**n 

4190  PRINT  USING  SHF 34,  "COMMANDERS"  ,  TP<  ?.' ,  "COMMAND  OPPORTUNI TV"  ,  TV:  1 9  1 
4200  SIF34:FMT  CR.  <  55)  '  CH<  18 ) ,  COL  (75)  ,  PIC  <  *tt«  » ) ,  COL  (  90 ) .  Cl  I  <  23  > ,  CD)  <1  IS 

4210  >,PIC<#.##> 

4220  PRINT  USING  SHP35,  DCS*.  ROUND  <  INVT  <P,  Tl  ),0) ,  "IT,  COMMANDERS"  ,  7  F'  <  2  ' 
4230  , "DEPT  HEAD  OPEOTTUNT  TV" , TP  <  P ) 

4240  SHT35:  FMT  CR  <  lO)  ,CH<  30) ,  COI  <  42)  -  PIE  (#### ' ,  COI.  <cs>  ,  nil  if! )  ,  CPI  <7S) 
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4550  ,  PIC  <##*#),  COL  <30),CH<53);COL  <  II 5)  ,  P IC  <*).## ) 

4560  PRINT  USING  SFT33.  "FIRST  TOUR  LENGTH"  ,  X4C.,  “LIEUTENANTS"  ,TB(  1  ) 

4570  PRINT  SKIP ( 1 ) 

45B0  PRINT  USING  SHP34,"  TOTALS" tD3 

4590  D3  =  ROUND ( < T5 <  5 > /D3 >*1 OO , O ) 

4300  PRINT  CK IP  < 1 > , X5T 

4310  PRINT  SI<IP<5),TAD<50),  "DISTRIBUTION  BY  GRADE  AND  ACTIVITY" 

4350  PRINT  SKIP(i>fTAT5<r*l  ),  "ACTIVITY  GRADS " 

4330  PRINT  TAB < 40) ,  "LT  L.CDR  CDR  SEN  COR  TOTAL 

4340  AC IP  PROJECTIONS" 

4350  INIT  (HEX  <50)  >P1T<  ) 

4300  FOR  P  =  1  TO  7 

4370  STR<P14<<P ) ,  1 4 , 50  >  =L.AOELT <  P  ) 

43B0  FOR  0=1  TO  5 

4330  CONVERT  03<P,0)  TO  STR  <  P 14 TP  > ,  3)  ■*  R*0,  B  )  ?  PIC  <  ) 

4400  NEXT  O 
4410  NEXT  P 

4450  STR  <  P 1  T>  <  8 ) ,  14, 5E )  =LAJ3El  4(9) 

4430  FOR  0=1  TO  5 

4440  CONVERT  TE<0)  TO  STR < P IT < B) , 31 +0*0, B) , PIC 

44 SO  NEXT  O 

4400  FOR  P  =  5  TO  4 

4470  STR<P.1T<P),3454)  =  "GATE" 

4430  CONVERT  P  !  TO  STR  < P 14- <  P  ) ,  J  OO,  1  ) ,  PIC  < # ) 

4430  CONVERT  TB(F+3>  TO  STR  <  P  1  T  <  P  ),  lOC^  4  >,  P  IC  (#„*)#  ) 

4 BOO  NEXT  P 

4510  STR<P1*<8),  PC.  5S)  =  "NON  AVIATION  Z" 

4550  CONVERT  D3T0  STR < P IT < R ) r 107, 5) , P IC <##> 

4530  FOR  P  =  1  TO  B 
4540  PRINT  P1T<P) 

4550  NEXT  P 

4500  IF  AT  =  "NAVAL  AVIATORS*  THEN  MAT  077  =  OPS  Ei.Sr  MAT  077  =  OPT 
4570  STR  <  P  i  T  <  3 ) ,  1 4 s  55 )  *  "LOWER  GRADE  FILL  S" 

45R0  FOR  P  =  5  TO  3 

4530  CONVERT  ROUND  <  037  <  B .  P  > ,  O )  TO  STR  <P )  T  <  3)  ,  31  •»  R*P ,  B  > . .P 1  C  <  ) 

4000  077 <  P  )  =  Q77<PM  ROUND  <037<R.  P),0) 

40.10  NEXT  P 

4050  T5< 50 )  =  ROLND(037<R.  5)  *037<B,  3 ) +037 < P, 4 ) r O ) 

4030  078  =  O 

4040  IF  Q37<B,,5)/DB<5>>097<B,3)/nB<3)  THEN  07P  =  037  <  P,  5 )  /DP  <  5  )  FIS'-  1 
4050  G7B  ='037<R, 3)/0B<3) 

4000  IF  G7B<037<B>4  )  /DB<4)  THEN  07B  037  <  R, 4  >  /OP <  4  > 

4070  IF  ROHND<07F<.,5)  =  O  THEN  JMP140R 
4080  PRINT  SKIP  <1>,TAB<  14  )  ,STR<  X4T-.,  1,37) 

4030  FOR  P  =  5  TO  4 

4700  IF  R0IJNEH07855)=RDLIND(G37<B.  P>/DB<P>  ,5)  THEN  JMPvAOG 
4710  NEXT  P 

4750  JMP 1 40C •  r STR  ( P 1 T-  <  3  )  f  RC  5  55 )  =  "HI  HP  DETAIL  X" 

4730  IF  P  =  5  THEN  CRAT  =  "(I.CDR)" 

4740  IF  P  =  3  JHEN  CRAT  =  "<COR>" 

4750  IF  P  =  4  THEN  GRAT  »  " (SR  CDR)" 

4700  STR<F14 <3) ,33. R)  =  STR < GRAT, 1 5 R ) 

4770  CONVERT  ROHNO < 07R, 5 )* lOO  To' STR (PIT (^ ) , lOR.  5 ) , P IC < ## ) 
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4780 

4790 

4800 

4810 

4820 

4830 

4840 

4830 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

49(r0) 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5000 

5070 

5080 

5090 

5100 


5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 


PRINT  Pi*<9> 

IF  A*=  “NAVAL.  AVIATORS"  TURN  MAT  085  =  077  Ft  55  MAT  089  -  077 
PRINT  TAO<  14  >tSTR<X4*,,  .1,97) 

JMP1408?  FOR  P  *  1  TP  7 
FOR  0*1  TO  7 


T5 (17)  » 
NEXT  0 
NEXT  P 
T5(17)  = 
T5<  .15)  * 
T5( 16)  « 
T5( 18)  * 
IF  A*  * 
FOR  P  = 


T5< 17)  +  I4(PfG> 


T5(17)-074 
ACC  1 

ACC1  -  .TNVT ( Bj  3.1 ) 

076 

"NAVAl  FL  IGHT  OFFICERS"  THEN  JMP1410 
1  TO  4 


T5( I4+P )  *  ROUND(T5( 14  +  P ),0) 

075(F)  ~  075(F)  4  T5(14»F) 

075(5)  =  075(5)  +  T5(14«D 
NEXT  P 

GOTO  .TMr.1411 

JMP 1 4 )  O  r  FOR  P  =  1  TO  4 

T5(  I^HP)  =  ROUND ( T5 <I4»P)rO) 

079 (P )  =  079 (P )  +  T5( 14  »P) 

079(5)  =  079(5)  +  T5(14*P) 

NFXT  P 

.IMP  1411: 1  NIT  (HEX  (20)  >P1U<  1  > 

STR  < P  J $><  1  >  ,  30.,  38 )  *  " TOTAL  ANNUAL.  PCS  MOVFS  THIS  COMMUNITY 
CONVFRT  (T5< 15) iT5< 16) »T5( 17) 4T5( 18) )  TO  STR(P1T ( 1 ) , 74, r ■) , 
PIC <#####> 

PRINT  Sl<  IF  <  1  >,  X5T 
PRINT  SKIF< 1 >5P1*( 1 ) 

PRINT  SKIP ( 1 ) 5  X5* 

PRINT  Sl< I P  <1  >  5  TAD <  .1  ) ,  STR  <  YT .1,129) 

SELECT  CRT 
END 

JMT'  1 409:  GOSI.IR '  58 
PRINT  PACF 
SELECT  CRT 
EI\10 

•»  * 

*  #81  -•  THIS  PUDROtJTINF  COMPUTFS  FI  FFT  ASSIGNMENT  * 

*  OPPORTUNITY  GIVEN  TUT  TOUR  NUMPFR  J,  THE  * 

*  RESULT  IS  RFTURNTn  TO  OUTPUT  PRINT  ROUT  TNT 

•»  ■*< 

OFTEN '  81  <.T) 

03=0t  MAT  T6  =  7FR ; MAT  T7  *  7FR 
FOR  N  =  1  TO  7 

IF  ErrR(T9*(l,.T)59WN,  3)  =  *NNN“  THEN  JMT 8 102 
CONVFRT  STR <  T9*h  ,  J  ) ,  3*N.  3)  TO  T6(N) 

FOR  1*1  TO  7 

IF  STR  (T9*  (I,.  I),  3*N.,  3)  *  “NNN "  TIIFN  .TMT8101 


TI  IFN  JMT  8 1 01 


CONVFRT  STR  <  T9U  <  I .  J )  -  3*N.  3  >  TO  T7<20> 


■  ,  .  -J-  A,!  4 ‘'•S  ’.'.*. 
• _ *  *  ‘  -  aitSii  I  i  rV  • 
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5310  T7 <N>  =  T7(N>  ♦  T7(20) 

5320  JMPBIOltNTXT  I 

5330  JMTR102:N!rXT  N 

5340  FOR  N  *  1  TO  7 

535*0  IF  T7<N)  <=  O  THEN  JMPC 103 

535*0  T.t  =  G7<N4 .7-1  ) 

5370  T6(N)  =  (T6<N)/T7<N) >*I4<N. J-l > 
53B0  T7 ( 20 )  =  INVT<8,3.1> 

5330  FDR  P  =  1  TO  INT<  <T1  /l/?>  *\  ) 

5400  T7(20)  =  T7<20)^0(P) 

5410  NEXT  P 

5420  D3  =  D3  +  TG(N)/T7(20) 

54.30  JMPB.10.3r  NEXT  N 
5440  RETURN 
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5450  *****-**4Hr«-JHr-*-«-&*4r**-tH‘-M»-lMr-«HMr*-IHM!-4r*4Hf*4HH:-*4MHr-*-MHr*4*4H***«4.*4**-<‘* 


5460  *  » 
5470  *  #50  -  THIS  SUDROUTINE  PRODUCES  A  SUMMARY  PRINT  * 
5400  ■»  FOR  MULTIPLE  COMMUNITY  RIJNS  WHICH  G T VC'S  * 
5430  *  ACTIVITSVGRADE  DISTRIBUTIONS  AND  AN  * 
5500  *  ACCESS  I  ON  SUMMARY,  * 
5510  *  * 


15570  4*4*"l*4*"**4f-4*4Mr4rlMWf  4MfHMr4W*4:-l*Hr$HHMHi<V^r^^f4V-4M*$M:-)Mr'4*4*4MMMr4*-<Mr4M*4*4f 

5530  DEFFN '  50 

5540  MAT  T6  *  ZER:MAT  T7  ="  ZER 
■  5550  FOR  P  =  1  TO  0 

I  5560  FOR  G  =  1  TO  3 

5570  TOT  A  ( P ,  0 )  =  ROUND(TOTA(P, G> , O) 

.  5500  TDTN(P,G>  =  R0UNT><7  0TN(P, G) ,  O) 

5530  T7 < P )  =  T7 < P )  *  TOTA(P,G> 

56-00  T7 (P+0)  =  77 (P+0>  4  TOTN(P,G> 

5C.10  NEXT  G 

5600  NEXT  P 

5630  FOR'  G  *  1  TO  3 

5640  FOR  P  *  1  TO  0 

5650  T6(G)  =  76(G)  +  TOTA(P,G) 

56CO  76(0*3)  *  T6(G*  3)  ♦  TOTN(P,G) 

56-70  NEXT  P 

5600  NEXT  G 

5630  FOR  P  =  1  TO  3 

5700  PTR(P)  *  ROUND < PTR ( P > ,0) 

5710  PTR <P  *7)  -  R0UND(PTR<r*7>,0) 

5700  T6 ( 7 )  =  T 6 ( 7 )  4  PTR(F) 

5730  T6(0)  =  T6(0)  4-  PTR(P47> 

5740  NEXT  P 

5750  FOR  P  -  4  TO  7 

5760  PTR(P)  *  ROUND ( PTR ( P ) , 0 ) 

5770  PTR(P*7)  -  ROUND  <  PTR  ( P  *  7  ) ,  O ) 

5780  T 6 ( 3 )  *  T 6 ( 3 >  *  PTR<P) 

5730  T6(  10)  -  76(10)  4  PTR(n7) 

5800  NEXT  P 
5810  SELECT  PRINTER 
5870  PRINT  PAGE 
5830  PRINT  SKIP (4) 

5840  PRINT  TAD (55), "MULTIPIF  RUN  SUMMARY"; 

585/)  PR  I  NT  7  AO  (  1 06 ) ,  DT 
58CO  PRINT  TAD (106),  7*- 

5870  AT  =  "NAVAL  AVI  ATORS" ; MAT  TOT  =  70TA:K!,K7  =■  Or  MAT  077  =  075 
5880  FOR  P  *  1  TO  15 

5830  IF  STR  ( MGROUPT ,  P ,  1  )  <> "  X "  AND  STR  (8GROI  W"t,  P,  1  )  0*0"  THEN  JMPSKP) 
5300  NEXT  P 

5310  AT  =■  "NAVAL  FLIGHT  OFFICERS" 1  MAT  T0T=7OTNr  K 1  =  8:  KP-3:  MAT  077  ^  07' 
j  53.70  JMP5801 ;  PR  I  NT  SKIP  ( 1  > ,  TAD(  58) ,  AT 
|  5330  PRINT  SKIP ( 1  ) ,  X ST- 

5340  PRINT  SI(IP(  1  >,TA0(48>,  "DISTRIBUTION  DY  GRADE  AND  ACTIVITY" 

.  5350  PRINT  Sl<  IP  ( .1  ) ,  TAR  <  30  > ,  "ACTIVITY'  GRADE" 

5360  PRINT  TAD (61 > , "LT  LGDR  CDR  TOTAL" 


£370 

5380 

5390 

6000 

€•010 

0020 

0030 

0040 

€•050 

€-0€>0 

0070 

e-oso 

€030 

OlOO 

ono 

0120 

0130 

0140 

0150 

OIGO 

0170 

0180 

0130 

0200 

0210 

f220 

€230 

0240 

€250 

€200 

€270 

€280 

€230 

0300 

0310 

0320 

0330 

0340 

0350 

€.3€0 

0370 

0380 

0330 

€400 

0410 

€•420 

€•430 

€440 

€450 

€4€0 

€470 

€480 

0430 


FOR  P  =  1  TO  7 

PRINT  USING  SHP5801 ,LAPELT<P>; 

FOR  0=1  TO  3 

PRINT  USII'JG  SHP5802,  TOT  <  P ,  0  >  ; 

NEXT  Q 

PRINT  USING  SHP5R03 j T7 ( P  +K .1 ) 

NEXT  P 

PRINT  USING  SHP5801,LADn_T<3>? 

FOR  0  =  1  TO  3 

PRINT  USING  SIFS8025TOT<P.,0>; 

NEXT  Q 

PRINT  USING  SUP5803,T7(8U<1 ); 

PRINT  SKIP  <0>5TAD<  58) ,  " _  _  _  _ « 

PRINT  SKIP(l)  " 

PRINT  TAD  <  30 > , " TOTALS" ; 

T7< 17>=0 

FOR  0=1  TO  3 

T7 ( 17)  =  T7 <  17 >  •*  TO(OM<2) 

PRINT  USING  SHT58025T€.(0U<2); 

NEXT  O 

PRINT  USING  SUP 5803 >  T7 (17) 

PRINT  SKIP  <  1  >  5  X5T 

PR  I  NT  Sl<  IP  (1  )  5  TAD  <  90 ) ,  "  TOTAL  ANNUA).  PCS  MOVIES  M  ) 

PRINT  USING  SHPS803.  077 <  5) 

PRINT  SKIP  <  1  > ,  X5T 
PRINT  SKIP < 1 ) 

PRINT  TAD  <  45) ,  "ACCESSION  REOUIREMENTS  DV  TRAINING  PIPEI  TNF " 
PRINT  SKIP12) ?TAS<€3> 5 "TO  TRAINING  TO  DTSIGNATOD" ? 

IF  AT  =  "NAVAL  AVIATORS"  THEN  TRINT  "  <PTR)“  El.SS  PRINT  "  (NT 
IF  AT  =  " NAVAL  AVIATORS"  THEN  L  =  0  EI.SE  1=3 
FOR  P  =  1  TO  3 

PRINT  USING  SHPS801 ,TRA3 <P M  >; 

PRINT  USING  SHPS804  , PTR  < P i )  ■» 7) ; 

PRINT  USING  SUPSP05,PTR<PM.>; 

IF  P<3  THEN  PRINT 
NEXT  P 

IF  L  >  O  THEN  PRINT  FLSE  .IMT 5800 
PRINT  USING  SUP 5801 , TRAT ( 7 ) : 

PRINT  US  I  IvJG  SI-IP  5804 ,  PTR  <  1 4 ) ; 

PRINT  USING  SHP5B05.,PTR<7>; 

T  €■  ( 7 )  =  T0(9);T0(8>*T€(10) 

JMP580GtPRINT  SKIP  <0)  5  TAP  <€•€•) ,  " _ ",  TAD  ( 85 ),  "  _  " 

PRINT  SKIP  <  1 ),  TAD  <  30) ,  "TOTALS"?  ’ 

PRINT  USING  SLIP 5804 ,  TO < 8 )  ? 

PRINT  USING  SHPF.B05.  T0(7> 

PRINT  SKIP! 1 ) , X5T 
IF  I.  *  3  THEN  I.  *  15 
K  «  O 

FOR  P  =  1  TO  .14 

IF  STR(MGROUPT,P4L,  1  ><>"X"  AND  STR  ( PGROl  fT .  P  ,  1  >  <  >  "  0"  THEN 
JMP5808 

IF  K>0  THEN  .TMF5803 
K=  1 


IF  AT 
IF  AT 
FOR  P 


CUT  )  ’• 


" , TAD  <  85 ) , " 


AND  STR  ( PGROl  ITT,  P  *l_,  1  >  • 


T1 IEN 


6500  PR  TNT  SKIP  <  1  >  ,TAP  <20>  ■:  "NOTT.  TIC!  FOLLOWING  OUHCOMMUNIT  IFF.  ART  NOT" 
6510  PRINT  TAB <56 > ,  “  INCLUDED  IN  THF  RESULTS  PRFSr'NTFD  APWT:  " 

6520  PRINT  SKIP(i) 

6530  .IMP5B03:  PRINT  TAP <  30 ) , TYPES :< P ) 

6540  JMPBBOEONEXT  P 
6550  IF  K«0  THEN  JMP5BX1 
6560  PRINT  SI<IP(1),X5S 

6570  JMP5B11 :  PR  I  NT  TAP  <70) ,  YSr  IF  L>0  THEN  RETURN 
65B0  FOR  P  *  16  TO  30 

6590  IF  STR<MGROUT**P,  1  ><>"X"  AND  ETR ( PGROI PS.  P,  1  )  0"0"  THTN  JMPr.RlO 
€600  NFXT  P 
€•610  RETURN 

6620  .TMP5BI0:  AS-'NAVAL  FLIGHT  OTF.T CERE"  i  MAT  TOT "TOTN:  K 1  -ft:  K2~?. 

€630  MAT  077  =  079 
66.40  PRINT  PAGF. 

€650  PRINT  SKIP<4> 

66CO  PRINT  TAD <550, "MULTIPLE  RUN  NUMMARY  <CONT,>" 

€670  GOTO  JMP FRO 1 

€6B0  SHP5B01 :  FMT  COL< 30> ,CH<25> 

€630  SHP6P02:FMT  CPU  <  55  >  5  P I C  <  1MMMWMWJ# ) 

6700  SMP5B03: FMT  COL  «R0)  ' PIC <###«####> 

€■710  SHP5B04:  FMT  GDI-<63> ' PIC  <###*####  > 

6720  SHP5B05? FMT  COL  < 82) , PIC < ###*###*> ) 


offprtn'  subroutines 


€.740  **»**4HHHHHHH»#*«-**********»«* 

6750  *  * 

6760  *  #41  -  THIS  SUBROUTINE  CREATES  A  PRINT  01"  THE  « 

f,770  *  SUMMARY  SCREEN  FOR  THE  CURRENT  RIJN/ ITERATION,  * 

6780  *  * 

€•800  DEFFN'  4.1  <  Y*  > 

6810  SELECT  PRINTER 
€43EO  N3.  *  hO  <FF) 

€4370  D10=R0UND<INVT<8,  31>,E> 

€4340  P9  =  INT<  <79-PS-P€.-ES)//7> 

6860  PR I NT  PACE 
6860  PRINT  XE* 

6870  PRINT  Sl< IP  ( 4  >  f  C0I_  <P1  < P3 ) , PI T ( 1  ) 

€-880  PRINT  USING  SHPJO,  Y$..  P* 

€4390  SHPlOr  FM7  COI..  <  30  >  5  CH ( 40 ) ,  COI.  ( 80  > ,  CM  <  8  > 

€•900  PRINT  C0L(80)tT* 

6910  PRINT  SKIP  ( 1  > , COL< 4!  )  ,  H FRACTION1  OF  FTI.L  " 

69P0  PRINT  USING  SHF  I,  “SENIOR  COMMANDERS" , D3 < 4 > 

€-930  PRINT  USING  SHF  1 5  *  COMMANDERS"  ,  03  ( 3 ) 

6940  PR  I  NT  US  I  NO  SHF  1 5  ’  LT ,  COMMANDERS”  ,  03  ( ,? ) 

6950  PRINT  USING  SHF1,"LT.  AND  PEI.OW"  5 D9<  5  ) 

69€0  SI-IP  1 :  FMT  COL  ( 30) ,  CHI  19) ,  CO!  <  56) ,  PIC  <##.###  > 

6970  PRINT  CO.  <  36)  =  =  -  = =  =  =  = 

€-980  PRINT  Sl< I P <  1  > 

6990  PRINT  USING  BHPP, "ACCESS! OHS” ,0)0 

7000  PRINT  USING  SHOE, "FIRST  TOUR  LJTNCTM"  ,  T1 5 

7010  SHP2JFMT  COL < 31 > , CH< IS) , COL (60) , PTC <###. #4 > 

7Ot?0  PRINT  SKIP  ( #7 ) ,  X ST- 

7030  SE1.ECT  CRT 

7040  N*  =  N$  XOR  I  IEX(FE) 

7050  RETURN 


OFFPR I N '  SIJDROIJT I  NEB 


I 

/ 

070 


7080  *  * 

Irooo  *  #42  -  this  suDnnuTJivr:  produces  a  print  of  tht  * 

7100  *  OUTPUT  FLOW  MATRIX  14  IN  RESPONSE  TO  TUFT  * 

7110  *  SPECIFICATION  OF  THE  USER,  * 

17120  *  * 

7140  DEFFhl'  42<YT> 

7150  SELECT  PRINTER 

1 71  GO  IF  NT.  «  HEX  < OO >  THEN  .IMP SOSO  I 


•7170  PRINT  PACE 
7180  PRINT  X5* 

j  7190  JMP5050: NT  *  NT  XDR  HEX  <  FF ) 

!  7200  FOR  P  =1  TO  7 
7210  INIT<HEX<20> >P1T(P) 

7220  FOR  R  -  .1  TO  7 

7210  CONVERT  I4<P,R>  TO  STR  <P1T(P ),  7*RT,(C)  ,  PIC  <###,## ) 

7240  NEXT  R 
7250  NEXT  P 

7260  PRINT  SK I P  <  4 ) ,  TAB <  FI > ,  " NODE  FLOW  VALUES" 

7270  PRINT  Sl<  I P  <  1  > ,  TAB  <  55  > ,  " TOUR  NUMBERS" 

7280  PRINT  Sl< I P (  1  ) 

7200  PRINT  USING  SHP8,  "ACTIVITY" 5 "ONE" , "TWO" , " THREE" , "TOUR" , "FIVE" . 
7300  “SIX" ? "SEVEN" 

7310  S)F9:FMT  COL.  (20) ,  CH  <  8 ) ,  COL  <  SO  > { CH<  3) ,  COL  (  57  >,  CU  <!),  COL  <  f.T  >,  CH<  B 1  ,  1 
7320  COL  <  70 ) ,  CH  (  4 )  5  CD!.  <  77 ) ,  CH  <  /i  > ,  CO!.  < 85) , CH< 3) ,  COL  <05  >,CM<5> 

7330  PRINT  SKIP  < 1 ) 

7.340  SI-F3rFMT  COL  <  23 ) ,  CH<24> ,  COL  ( 48> .  CH  ( 48) 

7 3 BO  For;  P=1  TO  7 

7360  PRINT  USING  SHP3,  I. ABE). T<P),P1T<P) 

7370  NEXT  P 

7380  PRINT  SKIP  <  1  > , TAR < 2G ) ,  " **•***«-»■•«*•♦: •»  • 
7300 

7400  PRINT  SK I P  < 2 ) , X BT 
7410  SFL.ECT  CRT 
7420  INIT (HEX (20) >DT 

7430  IF  Y2  =  1  THEN  SFI JTCT  PRINTER  ELSE  RETURN 
7440  STR  < BT,  X  ,  LFN <  TYPET  (Oil)))  *  TYPET<0.15> 

74B0  STR<BTsl_EN(TYPET(QX  1 )  )•*/?, 9)  -  "COMMI IWITY” 

7460  IF  NT  *  HE X  < 00 )  THEN  JMPE0E7 
7470  PRINT  PAGF 
74BO  PRINT  X5T 

7400  JMPB0S7: NT  =  NT  XOR  HEX  <FF> 

7500  PRINT  SKIP (2) ,TAB<  54) ,BT 

7510  PR  I  ITT  SK IP  < 1 > , TAB  <  58  > , "  INVENTORY  DISPLAY” 

7520  PRINT  SKIP  <  X  )  5 TAB <  54  ) ,  "YEARS  OF  AVIATION  SERVICE 
7530  PRINT  SK  IF  ( 1>,  TAB  <10>,"  ACTIVITY",  TAB  <3»7),"1  2 

7540  6  7  8  9  10  11  12  13  14  .15 

7550  19  20" 


3  4  5  ' 

56  .17  58  1 
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7500  PRINT  SKIP(i>,TAB<l>fX4fr 

7570  FDR  P  *  1  TO  B 

75B0  PRINT  USING  FL.0W10,  l_APQ  *<P> ; 

7590  FOR  0  =  1  TO  IS 

7000  PRINT  USING  FL.0W20,  ROUND!  INVT <P,0>  ,0) ; 
7010  NEXT  Q 

7020  PRINT  USING  FLOWPO,  ROUND!  INVT<P,,?0)  ,0) 
7030  NEXT  P 

7040  FLOW  1  Or  FMT  COI.  (2) ,  CM! P5) ,  XX  < P> 

705/)  FLOW.70:  FMT  CD!.  < PS >,  PIC  !###.#  > 

7000  PRINT  SKIP!!  > .  TAB!  I  )  ,  X4T 
7070  PRINT  USING  FI.OW1 5  LABEL ,*<S> ; 

70B0  FLOW  1  *.  FMT  COL . ! 2  > , CH !  P.5-  >  5  X  X  <  2  ) 

7090  FLOW/?:  FMT  GDI  <,?*>,  PIC  <#####> 

7700  FDR  G  =  1  TO  19 

7710  PRINT  USING  FLOW.?,  ROUND!  INVT!9,G) ,  f)> : 
7720  NEXT  « 

7730  PRINT  USING  FLOW.? .ROUND <  I NVT ( 9 ,  20 ) , O ) 
7740  PRINT  TAD  < 1 ) 5  X4T 
7750  PR  I  NT  SK I P  ( <? )  5  X 5* 

7700  SELDCT  CRT 
7770  RETURN 
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7730 

7800  *  * 

7810  *  #4.1  -  THIS  SUBROUTINE  PRINTS  A  COPY  OF  Tltr  SFIJICTED  * 

78»?0  *  INVENTORY  ENTRIES  FROM  Ti  IF  DTfT'l.  AY  SECTION,  * 

7810  *  * 

7850  DFFFN'  43<Y4 > 

78C-0  SELECT  PRINTER 

7870  IF  N*  =  HEX  (00)  THEN  .IMP 5051 

7880  PRINT  PACE 

7830  PRINT  X FT 

7300  jMPSOSirm.  *  m  xor  hex<fe) 


I  7310  PRINT  SKIP  ( 4  > ,  COL  <  51 )  r  “  INVENTORY  DISPLAY" 

1  73P0  PRINT  SKIP ( 1 >  5COL< 31  >  j "SELECT  FOUR  YEARS  FOR 
7330  30" 

I  7340  PRINT  Sl(  IP  <  c  ) 

7350  PRINT  USING  SHP4, "FIRST  YEAR" , T 5  SO ) 

7300  SHP4? FMT  COL < 30) , CH( 14 > , COL ( 51 ) 5PIC ( ## ) 

7370  PRINT  SKIP ( 1 ) 

7380  PRINT  US  IK'S  SI  F4,  "SECOND  YEAR  "  *  T 1 5  <  <?  > 

7330  PRINT  SKIP ( 1 ) 

8000  PRINT  USING  SHP4, -THIRD  YEAR" , T15< 1) 

8010  PRINT  SKIPU  ) 

BOEO  PRINT  USING  SHP 4, ’FOURTH  YEAR" ,T! 5(4) 

8030  PR  INT  Sl(  I P  ( r? ) ,  X 5* 

8040  SELECT  CRT 
8050  RETURN 


OUTPUT  PETWErivi  1  ANSI 


t _  *  '  '  .  ..  .  -- flT.-l.  ~  '  vL' 
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BOBO  *  * 

B030  *  #44  -  THIS  SUBROUTINE  PRINTS  Tl  IS  SEIJTCTED  INVENTORY  * 

8100  *  IDENTIFIED  IN  #41,  * 

81  10  *  * 

B130  DCFFN'  44  <  Y% > 

B140  SELECT  PRINTER 
8150  FOR  P  *  1  TO  9 
B160  INIT<HEX<80>  >Pt*(F) 

8170  STN<P.\*<P>,  1,84)  =■  LAPri.TUFM 
BIBO  FOR  R  t  l  TO  4 

81-30  CONVERT  1NVT  < P ,  T1  5 ( R  )  )  TO  STR  < T IT  <  P  ) ,  IP » OT-R ,  O  ,  T  T  C  < ##ii  ##  1 
8800  NEXT  R 
8810  NEXT  P 

8820  IF  NT'  =  HEX  <  00)  THEN  .IMP FOSE 
8830  PRINT  PACE 
8840  PRINT  X5T 

8850  JMT50P8:m.  =  NT  XDP  HEX  <FF' ) 

B800  PRINT  Sl<  I P  <  8  >  {  TAD  <  59  >  s  “  I NVENTOIV  Y  DISPLAY" 

8870  PR  I  NT  SKIP  <  3)  t  TAB  <  50 ) ,  "  STAR  5“ 

88B0  PRINT  USING  SHP5, “ACTIVITY" , T1 5< 1 >, Ti 5< 8> , T! 5< 3) , T \ r < 4 ) 

8890  SUPS:  FMT  COL  ( 17) ,  CHI  1 0) , CH.  ( 53 ) , PIC <## ) , CPI . <CP>  ,P1  f  <  #*t )  s  COI  (77  - 
B.300  PIC<#«)  ;COL  (80  ,PIC<#D) 

8110  PRINT  SKIP  (  1  )  ,  7  AP  < 89 )  ,  P  MM  \  ) 

8180  PRINT  T  AD  < 89 ) , P 1 T  <  8  > 

83.30  PRINT  T AD  <  83  > ,  P !T> <  3  > 

8.140  PR  I  NT  TAD  <  83  >  ,  P  V  T  (  4  1 
8350  PRINT  TAD(83)>1T  (5) 

8300  PRIIvTT  TAD  <  83)  ,P1T  <C) 

8170  PRINT  T AD < 83 ) , P 1 T  < 7 ) 

B380  PRINT  TAD <83), PIT <P> 

8130  PRINT  SKIP  <  I  )  -TAP  <80  ,  * «'»f«-B'«"»Mfif«-»:-»V5f'*>-»f->f'»iHf«"»fi‘'ir*-»fi:-»n*if-«f4 ififiK-: in* 
8400  ■•HHHHMHHHHf-JHf'friHHMMHMHfiHHMf  if*  « 

B4 10  PRINT  SKIP<1);TAP<83),PTT<3) 

8480  PRINT  SKIP  (  1  )  5 TAB <  80 ) ,  * ********** *■* * •»•»***•«-»* <•  *•■>? if* v. •»**** *•»■ 
8430  Ififififif*  iHf  i‘-if  ififif-S- ■ 

8440  PRINT  SK IP  < 8) , X5T 
8450  SELECT  CRT 
B4G-0  RETURN 
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8480 
8430 
8100 
8110 
81F0 
8130 
8140 
8110 
8  5  GO 
8170 
8180 
8130 
8G00 
BGtO 
BGFO 
8030 
8G40 
BGIO 
8GGO 
8G70 
8G80 
8G30 
8700 
8710 
87, ?0 
8730 
8740 
8710 
87GO 
B770 
8780 
8730 
8800 
8810 
8800 
8830 
8840 
8810 
8810 
8870 
B880 
8830 
8300 
3310 


*«-» 4Mr  4HHMr4Hr  «*«««*««*«««*«"**«:  •fc'IHH'r-tt 4! -iH >-> 

* 

*  #41  -  THU  SHDROUTT NT  PRINTS  Till  RF 01.1 1 ROMFNTS 

*  MATRIX  SHOWING,  Till  ROOD I ROMFNTS  ROMAI NT NC 

*  TO  80  FILLFD, 

« 

# 4HHHHHHH:  4Hf4M*-4*-4f4!-S--»*-»4‘*  **  4Hf  «««««« 

DOFFN '  41<  Y*t  > 

SFl  FCT  PRINTTR 
FOR  P  =  1  TO  7 
INTT  (HOX  <P0>  >P.\!t(P) 

STR<pitr.<r>,  1,041  =  lapol*<d 
FOT.  R  -  1  TO  4 

CONVORT  DO(P,R)  TO  STR  ( F  .1*  ( P  > ,  1 8  *  3*R .  7  > ,  P  IF  <  V*  < 

NrXT  R 
NO  XT  P 

INIT(HOX  <00 )  >P15.(8) 

STR  ( P  i  ♦  (  8  )  5  1 ,  ,?4  1  =  *  LDWFR  GRAOP  PILLS" 

FDR  R  =  1  TO  3 

CONVFRT  G37(8,R)  TO  STR  <P1*<  8)  t  ,?7-i0*R.  7>  .  PIC  <###«,##  > 

NFXT  R 

IF  N«.  “  HOX  < OO )  THOM  JMPS013 
rRINT  PAGO 
PRINT  XST 

.TMTIOST:  N't  =  MU  X OR  HOX  <00) 

PR  I  NT  SKIP  < ,? ) ,  T  AP  <  SO ) ,  H  ROOl  IT  RFMFNTS  O I SLI  AY  " 

PRINT  SK I P  <  3 )  ,  T AS  <  r.7 )  ,  " GATT  GDI':  Y " 

PRINT  TAD (37), "ACTIVITY  LT  LCOP  COP 


PRINT  SK  T  P  <  3  > ,  T  AP  <  r«7 )  r  " GATT  GDI':  Y " 

PRINT  TAD  (  .37),  "ACTIVITY  LT  LCOP  CPP 

R  i  " 

PRINT  Sl<  IP  <  1  >,T^(,?3),Pi$(l) 

PRINT  TAPO?3>  >HMF> 

PR  I  I’JT  TAP(FO)  ,P1T<  3) 

PRINT  T AB  ( F.3 )  5 P 5  T  <  4 ) 

PRINT  TAD<,?3>,PHM1) 

PRINT  T  AD  <  P3  );Plt(f.) 

PRINT  TAD<P3)  ,PH(7) 

PRINT  SKIP  <  1  )  ,TAP<PG>  ,  “**^«*^'»f***«r***4r*  «"*•***•»•«**•*  4HM!-#****H 

* «-» 4H4 4M4 4Br  •» 4Ht  4i •)•  »■ 

PRINT  SKTP< 1 ),TAD<?3),P1T<8) 

PR  TNT  SKIP  (  1  )  ,  TAP  <  FG  )  ,  "  4< -4“ 

44*4H44MHHr4«tMV#44*4Hr4r-4MV4f4*->H‘» 

PRINT  SKIP(P),XCT 
SFL FCT  CRT 
RFTI JRN 


W*:**‘#  > 


■  < \  \  *'3 

I  ■  nr.  ■ 
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8940  *  * 
89S0  *  #40  ~  THIS  SUPROUTINF  PR  T  NTS  THE  VALUES  TW  TUP  ^ 
8960  *  El-APSPD  TIME  MATRIX  070.  * 
8970  *  * 


B3f?0  *««"*•  ■*Hr-*HMf*-*H‘«-»4**"»***-* 

8990  DPFPN'  4C-<YT> 

9000  SELECT  PRINTER 
9010  FOR  P  *  .\  TO  7 
90<?o  init<hex(30> >pxt<p> 

9030  STR  <  P 1 T-  <  P  }  v  1 ,  34 )  -  LAPFLJMP) 

9040  FOR  R  ~  1  TO  7 

90S0  CONVERT  ROUND < 07 < P, R > ,0)  TO  STR (PXTIP  > ,  PI  •  EH"?,  31 ,  PTC  ( $Mt*  ) 

9000  NEXT  R 
9070  NEXT  P 

9080  STR<PJT<8) , 1, 24)  =  "NON-AVIATION  MAN  YP ARP" 

9090  FOR  R  =  1  TO  7 

9100  CONVERT  ROUND < Ol  ITA < R  ) .  O )  TO  STR  < Pi* <  8 )  5  31  t  5*R,  3 > ,  P  TC  <  > 

9110  NEXT  R 

9 IPO  IF  NT  *  HEX < 00 >  Tt-FN  JMPS0E4 
9130  PRINT  PACE 
9140  PRINT  X ST- 

91  SO  JMPB0S4:WT  =•  NT  XOR  IIPXJPP) 

91€0  PRINT  SKIP  (3)  ,TAD<49)  ,  “PL  APSFD  TIMr  <07>  DTf-r',l  AV” 

9170  PRINT  Sl<  I P  <  3  >  ,  T  AD  <  73  >  ,  " TOl  F " 

9180  PRINT  TAD  <  37),  "ACTIVITY  1/334  E  0 

9190  7" 

9.300  PRINT  SI<TP(  1  > , TAD (39) ,PXT<  5  ) 

9/310  PRINT  TAD<39>.P.1T<3> 

9330  PRINT  TAD<39>  ,PST<3) 

9,330  PRINT  TAD<39>,P1T<4) 

9340  PRINT  TAB<39>,PXT<E> 

9350  PRINT  T AD < ,79 > ,  P 1 T  <  O ) 

9300  PRINT  T AD  ( ,39  > 5  P  .1 T  <  7  ) 

9,370  PRINT  SKIP!  1  >  ,TAD<,7f->  ,  " -»Wr-ir*«- r-  »*-*'-*<•  *-*■*•*• v  *  * 

9380  -t-VHV*  ^  " 

9390  PRINT  SI<IP<  1  > , TAP <39> , P1T< 8> 

9300  PRINT  SKIP  <  1  )  .  TAD<30)  , 

9310  **  *  " 

9330  PRINT  SKIP  (3),  X ST- 
9330  SELECT  CRT 
9.340  RETURN 
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9360  -ft***  ft#":-"**#** -ft*  •*•*■•■**  *:*■>  ft*  -ft 


9370  *  * 

19380  *  #47  -  THIS  SHPROUTINT  PR T NTH  A  CPMPI  FTP  SFT  pr  * 

9330  *  PRINTS  AS  SPFGTFIFT)  IN  #41 ”#46.  TIC  RrCUT  * 

9400  *  ARF  LISTED  IPFNTI CALI.  V  TP  TI  C  INDIVIDUAL  * 

•  9410  *  PRINTS  AT  TWP  DISPLAYS  PPR  PAGF,  * 

I  94P0  *  * 


9430  -*4r**-»r  *-»«•*»*;•*•*  *•**  ft.;:*** 

9440  DFFFN'  47<Y*> 

94 SO  Y2  *  1 
9460  GOSIJB '  41<Y*> 

9470  GPSUP'  4D<Y*) 

9480  GDDIJ0 '  4S<YT  ) 

9490  GOSIJP'  4C,<Y«.) 

9S00  Y,?  -  O 
9S10  RFTLFIN 


I 


B-9  3 


g 

? 

s 

g 

g 

c  o 

? 

g 

§ 

Q 

L  ' 

g 

? 

g 

5 

§ 

N 

" 

L' 

f  p 

f\j 

h- 

r 

r- 

3 

Eo 

? 

4 

r- 

r- 

Se 

■i  rr 

-  ss 

£  c 

*  g 

c.  c 

eg 

404 

700 

gg  eg 

J7.  nj 

Pc 

p- 

«-« 

£  O 

?  Ec 

L*  C 

?g 

r> 

eg 

?.  C 

ss 

£  c 

s* 

^g 

IT  f*. 

C 

? 

S 

r 

k 

*n 

fe 

*"> 

k 

►4 

1  1 

fe~ 

r 

•n 

l 

£  K 

n 

£  (T 

*-> 

k N 

1 

* 

u  —  —i 

*  1 1  * 

<f  £x  X3 

*  <t  * 

C  _ 


BDEHBBIHK 


B-96 


Labil  .nrrjlO<? 

t070  lOPO 


Float  Var table  Ki? 

( Stat  t  c. )  rjf?70  mw  f,  I  AO  F1r.O 


Float  Variable  076 
1 Common ) 


String  V.inablp  Tt-  c. 

<  Cownion )  \oo  r_'40  pr,o  r*r-o  470  i'VJn  ir.no  rnro  f.000 


String  Array  TRA*I  f 7 )  pr. 

(Common)  \rX)  fvno  C  <40 
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APPENDIX  C 

DEFAULT  VALUES  FOR  MODEL  VARIABLES 

This  appendix  provides  tabulations  of  all  parameters  of  the 
Aviation  Officer  Requirements  Model  as  they  exist  in  the  computer 
data  base  when  the  program  is  first  called  up.  These  are  the 
default  values  to  which  the  model  is  initially  set.  The  operator 
can  change  any  or  all  of  these  values  for  a  particular  run. 
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C-0 


TABLE  Cl 


GRADE  STRUCTURE  FLEET  SQUADRONS 
AND  FLEET  READINESS  SQUADRON 
(Grade  Matrix  G0) 


FLEET  SQUADRON  FLEET  READINESS  SQUADRON 


Subcommun  i  ty 

Avia  tors 

_ _ _ 

NFOs 

Avia  tors 

_ 

NFOs 

05 

04 

03 

05 

04 

03 

05 

04 

03 

05 

1  04 

i 

03 

Light  Attack 

2 

4 

11 

0 

0 

0 

0 

23 

85 

0 

1  0 

1 

0 

Figh  ter 

1 

2 

11 

1 

2 

11 

8 

23 

137 

4 

15 

77 

Medi  um  Atta  ck 

1 

2 

13 

1 

2 

13 

2 

5 

44 

2 

6 

''  31 

Early  Warning 

1 

2 

7 

1 

2 

12 

2 

6 

34 

2 

5 

33 

Electronic  Warfare 

1 

2 

3 

1 

3 

14 

1 

3 

33 

1 

3 

26 

Carrier  ASW 

1 

3 

16 

1 

3 

15 

1 

8 

47 

1 

1 

5 

24 

Helicopter  ASW 

2 

4 

14 

0 

0 

0 

4 

17 

57 

0 

0 

0 

Mari  time  Pa  trol 

1 

3 

34 

1 

3 

19 

2 

15 

76 

2 

9 

53 

LAMPS  MK  I 

2 

4 

14 

0 

0 

0 

4 

17 

51 

0 

0 

0 

LAMPS  MK  III 

2 

17 

41 

0 

0 

0 

2 

13 

39 

0 

0 

0 

Electronic  Warfare 

0 

0 

0 

0 

0 

o 

o 

0 
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0 

0 

Force  Support  Jet 

0 

o 

o 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Force  Support  Prop 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Force  Support  Helo 

1 

3 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Air  Wing  Staff 

1 

3 

1 

0 

0 

0 

0 

0 

0 

0 

0 

1  0 
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TABLE  C2 

SQUADRON  STRUCTURE 
(Squadron  Matrix  Si) 

Number  of  j Aircraft  Per  Crew  |  Pilots  Per  N'FOs  Pe 
Squadrons  Squadron  ^  Factor  1  Crew  Crew 
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TABLE  C4 


S  ubcommun  i  tv 


SUPPLEMENTAL  FLEET  REQUIREMENTS 
Grade  Table 

(Auxilliary  Matrix-Aux) 


Pi lo  ts 


TABLE  C5 


I 

I 

I 


TRAINING  COMMAND  REQUIREMENTS 
(Training  Command  Matrix-TC0) 


In  s  tr  uc 
F; 


Pipeline _ 

Jet  Aviator 
Pr  op  Avia  tor 
Helo  Aviator 
RIO  NFO 


Input/Output 

Ra  ti  o 

05 

04 

Pilot 

! 

1.405 

22 

44 

.860 

1  .291 
1.347 
1.791 


TN  NFO  j  1.771 


ATDS  NFO 


1.523 


NAV  NFO 


1.426 


TABLE  C6 

RDT&E 

AFLOAT  AND  OTHER  REQUIREMENTS 
(Ma  trix-OTH) 

AVIATORS  NAVAL 

FLIGHT 

OFFICERS 

Activi  ty 

Senior  05 

1  05  1  04  1  03  !  Senior  05 

- 1  -  95. 

— i — — L 

RTD&E 


AFLOA 


26 

120 

; 

!  189 

97 

i 

130 

1  219 

OTHER 


TOUR 

LENGTH 

PRECEDENT  NODES 

FLEET 

FRS 

TRACOM 

RDT&E 

ALFOAT 

1 

00 

NNN 

NNN 

NNN 

NNN 

NNN 

2 

36 

000 

NUN 

NNN 

NNN 

NNN’ 

3 

36 

000 

m 

NNN 

NNN 

m 

3  G 

000 

NNN 

NNN 

NNN 

NNN 

5 

36 

OOO 

NNN 

NNN 

NNN 

NNN 

6 

24 

000 

NNN 

NNN 

OOO 

OOO 

7 

24 

OOO 

NNN 

NNN 

NNN 

NNN 

NNN :  PRECEDENT  NODE  IS  BARRED 

OOO :  TRANSITION  FROM  PRECEDENT  NODE  IS  PERMITTED 


TABLE  C-7n 

NETWORK  DESCRIPTION 
ACTIVITY:  RESEARCH  AND  DEVELOPMENT 


TOUR 

LENGTH 


PRECEDENT  NODES 


FLEET 


NNN  NNN  NNN 


OOO  NNN  NNN 
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NNN:  PRECEDENT  NODE  IS  BARRED 

OOO:  TRANSITION  FROM  PRECEDENT  NODE  IS  PERMITTED 


C-10 


TA3LE  C-7F 


NETWORK  DESCRIPTION 
ACTIVITY:  PROFESSIONAL  DEVELOPMENT 
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TABLE  C-7C 

NETWORK  DESCRIPTION 
ACTIVITY:  OTHER 
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